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*****  intpoouction  ***** 

THE  COMPUTER  CENTER  HAKES  AVAILABLE,  IN  ADDITION  TO  THE  NOS/BE 
OPERATING  SYSTEH,  A WIDE  VARIETY  OF  BOTH  SCIENTIFIC  ANO  JTILITY 
PROGRAMS,  subprograms  AND  CATALOGUED  PROCEDURES.  MOST  OF  THE  ROUTINES 
ARE  maintained  IN  LIBRARIES  ON  PERMANENT  FILES  AND  HAY  BE  INVOKED  BY 
THE  APPROPRIATE  (LOADER)  CONTROL  CAROS.  A FEW  PROGRAMS  ARE  AVAILABLE 
AS  INDEPENDENT  PERMANENT  FILES. 

THE  CCLI3-SERIES  OF  MANUALS  CONTAINS  THE  FOLLOWING,  WHICH  DESCRIBE 
THE  CONTENTS  OF  THE  VARIOUS  LIBRARIES  MAINTAINED  BY  THE  COMPUTER 
CENTERt 

CCLI9  - COMPUTER  CENTER  LIBRARIES 

CCLI3/N  - COMPUTER  CENTER  LI  BRA RIES/NSROC  (SUBPROGRAMS) 

CCLIB/P  - COMPUTER  CENTER  LIBRARIES/OROFIL  (PROCEDURES) 

CCLI3/U  - computer  CENTER  LIBRARIES/UTILITY  (PROGRAMS) 

CCLIB/M  - COMPUTER  CENTER  LI3RARIES/MNSRDC  (PROGRAMS) 

THIS  manual,  cclid/u,  is  a reference  manual  which  describes  all  the 

pROGDAMS  in  library  'UTILITY*. 


***  HOW  TO  USE  THIS  MANUAL  *** 

THF  PROGRAMS  ARE  CLASSIFIED  IN  ONE  OR  MORE  FUNCTIONAL  CATEGORIES 
(SEE  PAGE  1-2  FOR  A LIST  OF  CATFGQPIES).  THEY  ARE  LISTED,  BEGINNING  ON 
PAGE  1-5,  UNDER  THE  VARIOUS  CATEGORIES.  THE  INOIVIDJAL  PROGRAMS  ARE 
listed,  WITH  DESCRIPTIVE  TITLE,  BEGINNING  ON  PAGE  1-7.  CHAPTER  2 
CONTAINS  ALL  CURRENTLY  AVAILABLE  MACHINE-READABLE  DOCUMENTS  DESCRIBING 
THE  USE  OF  PROGRAMS  IN  LIBRARY  'UTILITY*. 


***  LIBRARY  UTILITY 

'UTILITY*  IS  A LIBRARY  OF  DTNSRDC  WRITTEN  AND/OR  SUPPORTED 
UTILITIES  ANO  INCLUDES  TAPE  ANO  DISK  DUMPS,  LISTERS,  SELECTIVE  COPIES, 
DOCUMENT  GENERATORS/pRINTERS,  CARD  REFORMATTERS,  LIBRARY  MAINTENANCE 
ROUTINES. 


***  EXECUTING  A PROGRAM  *** 

PROGRAMS  IN  THIS  LIBRARY  ARE  EXECUTED  IN  ONE  OF  THE  FOLLOWING  WAYS! 
A)  ATTACH, UTILITY. 

LIBRARY, UTILITY.  OR  LOSE T , LI B= UT IL I T Y . 

<PPOG>,<PAPAMETERS>.  WHERE  <PROG>  IS  THE  OESIRED 

PROGRAM 
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CMLD-77-15 

CMLD-77-16 

CMLD-77-17 


B)  9Er,IN,UTILITY,  ,<PROG>,<PARAMETERS> 
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FUNCTIONAL  CATEGORIES  *** 

THE  FOLLOWING  FUNCTIONAL  CATEGORIES  ARE  USED  AT  OTNSRDC.  THOSE 
CATEGORIES  PRFCEOFO  BY  AN  ASTERISK  (•»  ARE  LOCAL  OTNSROC  CATEGORIES. 

THE  OTHER  ARE  FROM  THE  VIH  «CDC  USERS  GROUP)  LIST. 

AO  ARITHMETIC  ROUTINES 

Ai  real  numbers 

A?  COMPLEX  numbers 
A3  DECIMAL 
AU  I/O  ROUTINES 

FO  ELEMENTARY  FUNCTIONS 
B1  TRIGONOMETRIC 
B2  HYPERBOLIC 

B3  EXPONENTIAL  ANO  LOGARITHMIC 
B4  ROOTS  ANO  POWERS 

CO  POLYNOMIALS  AND  SPECIAL  FUNCTIONS 
Cl  EVALUATION  OF  POLYNOMIALS 
C2  ROOTS  OF  POLYNOMIALS 

C3  evaluation  of  SPECIAL  FUNCTIONS  ( NON-STATISTICAD 
C4  SIMULTANEOUS  NON-LINEAR  ALGEBRAIC  EQUATIONS 
C5  SIMULTANEOUS  TRANSCENDENTAL  EQUATIONS 
* Cfi  ROOTS  OF  FUNCTIONS 

DO  OPERATIONS  ON  FUNCTIONS  AND  SOLUTIONS  OF  DIFFERENTIAL  EQUATIONS 
01  NUMERICAL  INTEGRATION 

D2  NUMERICAL  SOLUTIONS  OM'  ORDINARY  DIFFERENTIAL  EQUATIONS 

03  NUMERICAL  SOLUTIONS  OF  PARTIAL  DIFFERENTIAL  EQUATIONS 

04  numerical  DIFFERENTIATION 


EO 

FI 

E2 

E3 

E4 


INTERPOLATION 
TABLE  LOOK-UP 
CURVE  FITTING 
SMOOTHING 
MINIMIZING  OR 


ANO  APPROXIMATIONS 
ANO  INTERPOLATION 


MAXIMIZING  A FUNCTION 


FO  OPERATIONS  ON  MATRICES,  VECTORS  L SIMULTANEOUS  LINEAR  EQUATIONS 
FI  VECTOR  and  MATRIX  OPERATIONS 
F2  EIGENVALUES  ANO  EIGENVECTORS 
F3  DETERMINANTS 

F4  SIMULTANEOUS  LINEAR  EQUATIONS 


GO  STATISTICAL  ANALYSTS  AND  PROBABILITY 

G1  DATA  REDUCTION  (COMMON  STATISTICAL  PARAMETERS) 

G?  CORRELATION  ANO  REGRESSION  ANALYSIS 
G3  SEOUENTIAL  ANALYSIS 
G4  ANALYSIS  OF  VARIANCE 
GS  TIME  SERIES 

SPECIAL  FUNCTIONS  (INCLUDES  RANDOM  NUMBERS  ANO  PDF'S) 

• G/  MULTIVARIATE  ANALYSIS  ANO  SCALE  STATISTICS 

• Gn  NON-PAPAMETPIC  METHODS  ANO  STATISTICAL  TESTS 

• GO  STATISTICAL  INFERENCE 


AUn  1977 


PAGE  1-3 


HO  OPERATIONS  RESEARCH  TECHNIQUES,  SIMULATION  i MANAGEMENT  SCIENCE  ] 

HI  LINEAR  PROGRAMMING  | 

H2  NON-LINEAR  PROGRAMMING  3 

H3  TRANSPORTATION  AND  NETWORK  COOES  ] 

H4  SIMULATION  MODELING  j 

H5  SIMULATION  MODELS  1 

H6  critical  path  PROGRAMS  j 

HO  AUXILIARY  PROGRAMS  1 

H9  COMBINED  | 

10  INPUT 

11  BINARY 

12  OCTAL 

13  DECIMAL 

14  BCD  (HOLLERITH) 

19  COMPOSITE 

JO  OUTPUT 

J1  BINARY 

J2  OCTAL 

J3  DECIMAL 

J4  BCD  (HOLLERITH) 

J9  PLOTTING 

J7  ANALOG 

J9  COMPOSITE 

KO  INTERNAL  INFORMATION  TRANSFER 

K1  EXTERNAL-TO-EXTFRNAL 

K2  INTERNAL-TO-INTERNAL  (RELOCATION) 

K3  DISK 

K4  TAPE 

K5  DIRECT  DATA  DEVICES 

LO  EXECUTIVE  ROUTINES 

LI  ASSEMBLY 

L2  COMPILING 

L3  MONITORING 

L4  PREPROCESSING 

L5  DISASSEMBLY  AND  DEREL AT  I VIZIN5 

L6  RELATIVIZING 

L7  COMPUTER  LANGUAGE  TRANSLATORS 


MO  DATA  HANDLING 
Ml  SORTING 

M2  CONVERSION  AND/OR  SCALING 
M3  MERGING 

M4  CHARACTER  MANIPULATION 
M5  SEARCHING,  SEEKING,  LOCATING 
MB  REPORT  GENERATORS 
MB  COMPOSITE 

NO  DEBUGGING 
N1  TRACING  AND  TRAPPING 
N2  DUMPING 

N3  MEMORY  VERIFICATION  AND  SEARCHING 
N4  BREAKPOINT  PRINTING 
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00  SIMULATION  OF  COMPUTERS  ANO  DATA  PROCESSORS  (INTERPRETERS) 

01  OFF-LINE  EQUIPMENT  (LISTERS,  REPRODUCERS,  ETC.) 

03  COMPUTERS 

04  PSEUDO-COMPUTERS 

05  SOFTWARE  SIMULATION  OF  PERIPHERALS 
09  COMPOSITE 

PO  DIAGNOSTICS  (HAROHARE  MALFUNCTION) 

00  SER'/ICE  OR  HOUSEKEEPING,  PROGRAMMING  AIDS 
Q1  CLEAP/RESET 

02  CHECKSUM  ACCUMULATION  AND  CORRECTION 

03  REWIND,  TAPE  MARK,  LOAD  CAROS,  LOAD  TAPE  PROGRAMS,  ETC. 

04  INTERNAL  HOUSEKEEPING,  SAVE,  RESTORE,  ETC. 

05  REPORT  GENERATOR  SUBROUTINES 

06  PROGPAM  DOCUMENTATION!  FLOW  CHARTS,  DOCUMENT,  STANDARDIZATION 

Q7  ppogram  library  utilities 

P0  LOGIC  AND  SYMBOLIC 
R1  FORMAL  LOGIC 
P?  SYMBOL  MANIPULATION 

LIST  and  string  PROCESSING 

NFORMATION  RETRIEVAL 

. APPLICATIONS  ANO  APPLICATION-ORIENTED  PROGRAMS 
T1  PHYSICS  (INCLUDING  NUCLEAR) 

T2  CHEMISTRY 

T3  other  PHYSICAL  SCIENCES  (GEOLOGY,  ASTRONOMY,  ETC.) 

T4  engineering 
T5  BUSINESS  DATA  PROCESSING 

T6  manufacturing  (NON-DATA)  PROCESSING  ANO  PROCESS  CONTROL 
T7  mathematics  and  APPLIED  MATHEMATICS 
T0  SOCIAL  AND  BEHAVIORAL  SCIENCES  ANO  PSYCHOLOGY 
T9  BIOLOGICAL  SCIENCES 

T10  REGIONAL  SCIENCES  (GEOGRAPHY,  URBAN  PLANNING) 

Til  COMPUTER  ASSISTED  INSTRUCTION 

UO  LINGUISTICS  ANO  LANGUAGES 

VO  GENERAL  PURPOSE  UTILITY  SUBROUTINES 
VI  RANDOM  NJMBFR  GENERATORS 

V2  COMBINATORIAL  GENERATORS!  » ERMUT AT  I ONS , COMBINATIONS  L SUBSETS 
V3  STANDARD  ANO  SPECIAL  PROBLEMS 

XO  DATA  REDUCTION 

XI  RE-FOPMATTING,  DECOMMUTATION,  ERROR  DIAGNOSIS 
X2  EDITING 
X3  CALIBRATION 
X4  EVALUATION 

X6  ANALYSIS  (TIME-SERIES  ANALYSIS) 

X6  SIMULATION  (GENERATE  TEST  DATA  FOR  DATA  REDUCTION  SYSTEM) 

Yo  Installation  modification 

Y1  installation  MODIFICATION  LIBRARY 

V2  NEWPL  TAPE  OF  INSTALLATION  MODIFICATIONS 

Z0  ALL  OTHERS 
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LIST  OF  programs  BY  CATEGORY  **♦ 

the  programs  in  library  'UTILITY*  ARE  LISTED  BELOW  UNDER  THEIR 
FUNCTIONAL  CATEGORIES.  AN  ALPHABETICAL  LIST,  WITH  A BRIEF  DESCRIPTION 
OF  EACH  PROGRAM  BEGINS  ON  PAGE  1-7. 

JO  OUTPUT 

HPSCM 

J1  BINARY 

CY29 

j9  composite 

HFXOMP  PRUOMP  TAPOMP 

<1  EXTFRnAL-TO-EXTERNAL 

copyre  copysel  ppomnt 

KS  BISK 

COPYLI3  OOCUMNT  GET03J  PRUOMP 

K4  TAPE 

HFXOMP  TAPOMP 

Ml  SORTING 

AUOSORT  OEKSORT 

M?  CONVERSION  AND/OR  SCALING 
CV29 

M4  CHARACTER  MANIPULATION 
COPYEXT  FORMATR 

N2  bumping 

OMPFIL 

01  OFF-LINE  EQUIPMENT 

CAROS  COPYEXT  CV29  LISTEOI  LIST2  PAGEpRT 

CAR0S2  COPYRE  LINERL  LISTZ  LIST3 

CCRM  COPYSEL  LISTCMP  LISTl  LIST4 

OO  SERVICE  OR  HOUSEKEEPING,  PROGRAMMING  AIDS 

AUOSORT  BANNERS  JOBTIME  LINERL  WHATLI3  WHICHOS 

BANNER  OFOATIM  LINER  PTIM  WHICHMF 


QS  PROGRAM  DOCUMENTATION!  FLOW  CHARTS,  DOCUMENT,  STANDARDIZATION 
DOC  OOCUMNT  MANYOOC  OFOOC  PURPOSE  UNOOCIT 

OOCIT  EXECARD  MTOOC  PROGDOC  TAPLIST 


flUG  1^77 


Q7  PPOGPAM  LI3PflPr  UTILITIES 


BINOEX 

DECK 

OECKLST 

OEKSORT 

LIST9IN 

LISTCMP 

PROMNT 

REOECK 

SORTUP 

TEXT  EDITING 
FORMATS 

SO 

INFORMATION 

EXEGARO 

retrieval 

PAGEPRT 

PURPOSE 

TAPLIST 
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OESC=^IPriVE  TITLES  *** 

PROGRAMS  IN  library  'UTILITY*  ARE  LISTED  ALPHABETICALLY  BELOW. 

AUDSORT  PRINT  SORTED  AUDIT 

BANNER  PRINT  A BANNER  (PAGE) 

BANNERB  PRINT  3 BANNERS  ON  ONE  PAGE 

3IN0EX  GIVE  LIST  AND  SORTED  LIST  OF  OUTPUT  OF  EDITLI3  'LISTLIB*  AND 
•CONTENT*  OIRECTIVES 

CAPOS  RFPROOJCF  A BCD  DECK  WITH  MOOIFICATONS  (FIELDS  1AY  3E 

MOVED,  DELETED,  INTERCHANGED,  GANG  PUNCHED  AND/OR  SEQUENCED) 

CAPOS2  REPRODUCE  A BCD  DECK  WITH  MODIFT'DATIONS  (FIELDS  MAY  BE 

COPIED,  MOVED,  DELETED,  INTERCHANGE^ , GANG  PUNCHED  AND/OR 
SEQUENCED) 

CCPM  EKTPACT  ALL  PAGES  FROM  COMPUTER  CENTER  REFERENCE  MANUAL  WHICH 

WERE  MODIFIED  AFTER  USER-SPECIFIED  DATE 

COPYEXT  COPY  UNIT  RECORDS  (ZERO  BYTE  TERMINATED)  EXTRACTING  SPECIFIED 
COLUMNS  AND  OPTIONALLY  MOVING  THEM  AND  OPTIONALLY  ADD  EDITOR 
SEQUENCING 

COPYLIB  FROM  AN  E0ITLI3  LISTLI3  LISTING,  CREATE  SORTED  (OR  UNSORTEO) 
DIRECTIVES  TO  COPY  AN  EDITLIB  USER  LIBRARY 

COPYRE  COPY  AND  REARRANGE  FILE  OF  ZERO  BYTE  TERMINATED  RECORDS  (150 
CHARACTERS  MAXIMUM  PER  RECORD) 

COPYSEL  COPY  AND  REARRANGE  FILE  OE  ZERO  BYTE  TERMINATEO  RECORDS  (150 
CHARACTERS  MAXIMUM  PER  RECORD?  FILE  PROCESSED  DIRECTLY) 

CV29  CONVERT  TO  029  PUNCH  CODE 

DECK  LIST  UPDATE  •SOURCE*  FILE  DECK/COMOECK  NAMES,  SEQUENCE  NUMBER 

AND  NUMBER  OF  CAROS 

OECKLST  LIST  UPDATE  ‘SOURCE*  FILE  DECK/COMOECK  NAMES,  SEQUENCE 
NUMBER,  NUMBER  OF  CARDS,  NUMBER  OF  LINES  AND  PAGES  (IF  COLUMN 
1 CARRIAGE  CONTROL  IS  USED)  (LIST  CONTENTS  OF  A 
DOCUMENTATION  FILE) 

OEKSORT  SORT  lOENT  AND  OECK  LISTINGS  FROM  UPDATE  OUTPUT  FILE 

DFDATIM  PUT  DATE/TIME  IN  OAYFILE 

OMPFIL  DUMP  FIRST  N WORDS  OF  EAC)^  LOGICAL  RECORD  IN  M FILES 
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DOC 

PREPARE 

(SUB) PROGRAM  AND  CATALOGUED  PROCEDURE 

DOCUMENTATION 

ooriT 

ADO  PAGI 

NG  TO  A DOCUMENT 

OOCUMNT 

MAINTAIN 

A FILE  OF  DOCUMENTS 

execaro 

EXTRACT 

EXECUTE  CARO  PARAMETER/SUBPROGRAM 

USAGEZPRDCEDURE 

USAGE  INFORMATION  FROM  DOCUMENTATION  FILES  (HHICH  WERE 
PREPARED  IN  THE  FORMAT  GENERATED  BY  PROGRAM  »OOC*) 


FOPMATR  THIS  IS  A TEXT  FORMATTER.  IT  IS  DESIGNED  TO  BE  OF  ASSISTANCE  I 

TO  THE  PERSON  WHO  NEEDS  TO  MANIPULATE  TEXT  FILES  WHICH  ARE  i 

NOT  INHERENTLY  LINE  ORIENTED.  IT  WILL  ACCEPT  FREE-FORM  INPUT 
AND  GENERATE  FORMATTED  OUTPUT  UTILIZING  ARBITRARILY  SIZED 
RECORDS.  the  input  CONSISTS  OF  TEXT  AND  OPTIONAL  DIRECTIVES 
WHICH  CONTROL  SUCH  FUNCTIONS  AS  PARAGRAPH  INDENTING  AND  LINE 
SPACING. 

GFTCBJ  EXTRACT  ONE  OBUECT  MODULE  FROM  A SEQUENTIAL  OBUECT  FILE  OR  AN  ! 

FDITLIB  USER  LIBRARY 

HEXOMP  dump  9-TRACK  TAPE  IN  HEXADECIMAL  FORMAT 

UOBTIME  put  U03  CP  EXECUTION  TIME  TO  THIS  POINT  INTO  DAYFILE 

LINER  COUNT  LINES  AND  PAGES  OF  A FILE  HAVING  FIRST  CHARACTER 

CARPIAGE  CONTROL 

LINERL  LIST  A DOCUMENT  (CARRIAGE  CONTROL  IN  COLUMN  1,  ZERO  BYTE 

TERMINATED  RECORDS)  WITH  RECORD  COUNT  AND  COUNT  OF  LINES  ON 
EACH  PAGE  (LIST  THRU  END-OF-INFORMATION) 


LISTBIN 

LI^TCMP 

LISTEOI 


LIST 

RE 

LOCA 

TABLE  BINAPY 

MODULES  IN 

ONE 

OR  MORE  FILES 

LIST 

AN 

UPD 

ATE  COMPILE 

FILE,  EACH 

DECK 

BEGINNING  ON  A 

PAGE 

WI 

TH  A 

BANNEP  PAGE 

PRECEDING 

IT 

LIST 

A 

FILE 

INSERTING  ♦ 

EOR,  ♦EOF, 

♦EDI 

WHERE  APPROPRIATE 

NEW 


LISTZ 


LIST  ZERO  BYTE  TERMINATED  RECORDS  (UP  TO  110  CHARACTERS  PER 
RECORD)  WITH  RECORD  NUMBER  AND  RECORD  LENGTHS 


LTSTl  LIST  (CENTERED)  ONE  COPY  OF  CAROS  (UP  TO  90  CHARACTERS) 

HAVING  CARRIAGE  CONTROL  IN  COLUMN  1.  OPTIONALLY  PRINT  CARD, 
PAGE  AMD  LINE  COUNTS  AND  LINE  .ENGTHS. 


I 

r 

f 

; 

I 


I 


LIST2 


SINGLE/00U8LE  SPACE  LISTINGt  6 3 LI^'ES  PER  INCH,  WITH 
OPTIONAL  SKIP  OVER  PERFORATION  AT  BOTTOM  OF  PAGE  (FIRST  120 
CHAPACTEPS) 
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LIST3 

LTST9 

manyooc 

MPSCM 

MTnoC 

PAGEPRT 

PFOCC 

PROGDOC 

PROMNT 


ppunhp 

PTIM 

PURPOSE 

REOFOK 

SOPTUP 


LIST  FIRST  (UP  TO  90-CHAPAGTER,  ZERO  31fTE  TERMINATED)  RECORD 
IN  EACH  LOGICAL  RECORD  THROUGH  EOI 

LIST  UNIT  RECORDS,  THRU  EOI,  WHICH  HAVE  IN  COLUMN  1 


EXTRACT  (PRINT)  TWO  OR  MORE  DOCUMENTS  FROM 
FILE 


DOCUMENTATION 


CONVERT  PRINTED  OUTPUT  DATA  INTO  A COM  FORMATTED  TAPE  TO 
PRODUCE  MICROFICHE  ON  THE  OATAGRAPHIX  4530  SYSTEM 

CREATE  DOCUMENTATION  TO  DESCRIBE  THE  CONTENTS  OF  A MAGNETIC 
TAPE 

PRINT  SELECTED  PAGE(S)  FROM  A DOCUMENT 
CREATE  permanent  FILE  DOCUMENTATION 

EXTPACT  (PRINT)  ONE  OR  ALL  DOCUMENT (S)  FROM  A OOCUMENTATIFM 
FILE 

MAINTAIN  AN  4L PHA RET  I C A L , SEQUENTIAL  PROCEDURE  FILE,  EACH 
PROCEDURE  3EING  ONE  SCOPE  LOGICAL  RECORD 

OCTAL  AND  CHARACTER  DUMP  OF  DISK  FILE  3Y  RELATIVE  PRU  NUMBER 

PRINT  CPA,  CP8,  CPA«-CP3,  10  AND  PP  TIMES  SINCE  START  OF  J03 
OR  INTERCOM  SESSION 

EXTRACT  PURPOSE  INFORMATION  FROM  DOCUMENTATION  FILES  (WHICH 
WERE  PREPARED  IN  THE  FORMAT  GENERATED  BY  PROGRAM  'DOC*) 

change  an  UPDATE  COMPILE  FILE  3ACK  INTO  A SOURCE  FILE 

GENERATE  UPDATE  DIRECTIVES  TO  SORT  OLOPL 


TAPDMP  DUMP  SELECTED  PORTIONS  OF  A T-TRACK  MAGNETIC  TAPE  WRITTEN  IN 
AN  UNKNOWN  DENSITY  ANO/OR  MODE.  IT  IS  CONTROLLED  BY  A SERIES 
OF  «^REE-EIELD  CONTROL  CAROS  CONTAINING  ORDERS  FOR  THE 
DUMPING,  SKIPPING  OR  BACKSPACING  OF  RECORDS  OR  FILES. 

TAPLIST  PREPARE  TWO  LISTS  FROM  MA GT A PED OCUME NT A T I ON  FILE) 

1)  TAPE  number,  LABEL,  DENSITY,  REMARKS  AND  DESCRIPTION 
FOR  EACH  TAPE  OOCUMENTEO  IN  FILE 
3)  LISF  OF  TAPE  NUMBERS  ANO  LABELS 


UNOOCIT 

REMOVE  THE 
•DOCIT* 

PAGING 

WHI 

WH  ATLIB 

LIST 

LIBRARIES  SPEC 

IFIEO 

WHICHCP 

TELL 

TELETYPE 

USER 

WHICH 

WHICHOS 

TELL 

TELETYPE 

USER 

WHICH 

H WAS  ADDED  TO  A DOCUMENT  BY  PROGRAM 

ON  LAST  LIBRARY  CARD 
machine  he  IS  USING 
OPERATING  SYSTEM  HE  IS  USING 


ftUG  1977 


PftGE  2-1 


; *****  PROGRAM  DOCUMENTATION  ***** 

t THIS  CHAPTER  CONTAINS  THE  DOCUMENTATION  FOR  ALL  PROGRAMS  IN 

LIBRARY  'UTILITY*. 

INOIYIOUAL  DOCUMENTS  MAY  3E  PRINTED  USING! 

BEGIN.UTILITY, ,PROGOOC, UTILITY,, <PROG>, OUTPUT. 

WHERE  <PROG>  IS  THE  DESIRED  DOCUMENT. 

SEVERAL  DOCUMENTS  MAY  BE  PRINTED  AT  ONE  TIME  USING! 

JOBNAME. 

CHARGE,.... 

BEGIN,UTILITY, ,MANYOOC,UTILITY. 

• 7/8/9  EOR 

<PROGl> 

<PROG2> 

• • • 

<PROGN> 

6/7/8/9  EOF 


PROGRAM  'AUOSORT* 


PURPOSE 

PRINT  SORTED  AUDIT 
FUNCTIONAL  CATEGORIESJ  Ml  QO 
LANGUAGE*  FORTRAN  IW  EXTENDED 
REMARKS 

THE  SORTED  LIST  HILL  HA\/E  THE  FULL  PFN  SORTED 
ALPHAMERICALLY.  DIFFERENT  CYCLES  OF  THE  SAME  PFN  WILL  BE 
LISTED  IN  DESCENDING  ORDER. 

PFN  FOR  INTERCOM  AUDIT  IS  29  CHARACTERS?  FOR  SHORT,  PARTIAL 
AND  FULL  AUDITS,  i*0  CHARACTERS. 

EXECUTION 

FROM  BATCH 

AUDIT, LF=OUT, .. .. 

ATTACH, UTILITY. 

LIBRARY, utility. 

AUOSORT,OUr, 

FROM  TTY 

AUDIT, LFsOJT,  .. .. 
connect, OUTPUT. 

BEGIN,UTILirY,,AUOSORT,OUT. 

EXECUTE  CARO  PARAMETERS 
AUOSORT,AUDFILE, OUTPUT. 

AUDFILE  - INPUT  FILE  TO  BE  SORTED  (AUDIT  OUTPUT) 
OUTPUT  - LISTA8LE  OUTPUT 

DEFAULT  EXECUTE  CAPO 

AUOSORT,TAPEl, OUTPUT. 

DEFAULT  PL»  5000  LINES 

FL  NEEDED  TO  LOAD*  360308 
FL  NEEDED  TO  RUN  I 26000B 

ERROR  MESSAGES 

MORE  THAN  1000  PENS,  JOB  TERMINATED 

PROGRAM  MUST  BE  RE-OIMENSIONEO.  CALL  USER  SERVICES. 


INPUT/OUTPUT 
UNIT  # 

UNITS 

lfn 

USE 

1 

OUTPUT 

TAPEl 

LISTABLE  OUTPUT 

INPUT  FILE  TO  BE  SORTED 

•* 

ZZHORK 

(AUDIT  OUTPUT  FILE) 
RANDOM  WORK  FILE 

Oe/22/T? 
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AUOSORT 


I OF  2 


SUBROUTINE  ftNO  FUNCTION  SUBPROGRAMS  REQUIRED 


PART  OF  LANGUAGE 

AN3  CLOSHS  EOF  MOVLEV^  OPENMS 

OR  REAOMS  RECOtfR  REMARK  SHIFT 

WRITMS 

PART  OF  PROGRAM 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 
OTHERS 

GETLFNS  - SET  ACTUAL  LOCAL  FILE  NAMES 

IFNTtf  - FAST  I-FOPMAT  DECODE 

MOVSTR  - MOVE  CHARACTER  STRING 

REDUCE  - GET  AODITIONAL  CORE  NEEDED 

REPLAC  - REPLACE  ONE  CHARACTER  WITH  ANOTHER 

VFILL  - FILL  ARPAT  WITH  WORD 

UNLOAD  - RETURN, TAPE4. 

ARITHMETIC  STATEMENT  FUNCTIONS 
FAST  A-FORMAT  DECODE 
A106FMT 

FAST  R-FORMAT  PFCODE  (RIGHT-ADJ,  ZERO-FILLED) 

R29FMT  R38FMT  R44FMT  R81FMT  R91FMT 
R92FMT  R95FMT  R96FMT  R9ZFMT  R98FMT 
R910FMT 

AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1892.2 
DATE  WRITTEN*  01/07/75 
DATEIS)  REVISED 

01/08/75  01/10/75  01/13/75  01/20/75  02/04/75 

02/28/75  08/06/76 

02/24/77  - MODIFY  FULL  AUDIT  FOR  NOS/BE  1.0 
02/25/77  - MODIFY  FOR  NEW  NOS/BE  SN  AUDIT 
04/12/77  - MODIFY  FOR  SHARED-FILES  AUDIT  HEADINGS 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY*  UT I L IT Y Pl , IO=CS YS 
OBJECT 

EDITLIB  USER  LIBRARY*  UTILITY 


J 


1 


04/12/77 
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AUDSORT  2 OF  2 


PROGRAM  'BANNER* 


PURPOSE 

PRINT  A BANNER  (PAGE) 

FUNCTIONAL  CATEGORfl  Q3 
LANGUAGE!  FORTRAN  IV  EXTENDED 
REMARKS 

THE  BANNER  PRINTED  IS  10  LINES  HIGH.  IT  MAY  BE  PRINTED  ON  A 
NEW  PAGE  OR  THE  CURRENT  PAGE,  DEPENDING  ON  THE  ABSENCE  OR 
PRESENCE  OF  A THIRD  PARAMETER  IN  THE  EXECUTE  CARD. 

ONLY  2 BANNERS  HILL  FIT  ON  A <»AGE. 

EXECUTION 

FROM  BATCH 

ATTACH, UTILITY. 

LIBRARY, UTILITY. 

BANNER, ANY.  PRINT  BANNER  PAGE  WITH  WORD  'ANY* 

from  tty 

BEGIN, UTILITY,, BANNER,  ANY, OUT. 

...  NORMALLY,  MORE  PROGRAMS  WILL  WRITE  ON 

'OUT* 

DISPOSE, OUT, PR=XYY. 

EXECUTE  CARO  PARAMETERS 

BANNER, NAME, OUTPUT, WHERE. 

NAME  - WORD  TO  BE  PRINTED  (1-7  CHARACTERS  - 
LETTERS  AND  NUMBERS  ONLY) 

THE  FOLLOWING  VALUES  OF  NAME  HAVE  SPECIAL 


MEANING! 

CPU 

- PRINT 

THE  CPU 

(640a/&60a/&700) 

DATE 

- PRINT 

THE  DATE 

(MMOOYY) 

TIME 

- PRINT 

THE  TIME 

(HHMMSS) 

OUTPUT  - LISTABLE 

OUTPUT 

WHERE  - OMITTED 

- PRINT 

BANNER  ON 

A NEW  PAGE 

NON-BLANK 

- PRINT 

BANNER  ON 

SAME  PAGE 

default  execute  CARD 

BANNER, DUMMY, OUTPUT ,NEWP AG. 


FL  NEEDED  TO  LOAD!  2VD00B 
FL  NEEDED  TO  RUN  I IVOOOB 

OUTPUT  UNIT 

UNIT  # L-N 


USE 


OUTPUT  LISTABLE  OUTPUT 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

AND  DATE  SHIFT  TIME 

OTHERS 

CPUA67  - GET  CPU 

GETLFNS  - GET  actual  LOCAL  FILE  NAMES 

LEFTADJ  - SQUEEZE  LEFT  AND  RFMOVE  BLANKS  AND  OOB 


00/22/77 
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BANNER 


I OF 


2 


ftUTHOP 

DAVID  V SOMHF?  - NSROC  SOOE  1992.2 

DATE  WRITTENI  06/20/74 

DATE<S)  REVISED 
06/19/75 

11/02/76  - ADO  BANNER,CPU,.... 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARYI  UTILITYPL, ID=CSYS 
OBJECT 

EOITLIB  USER  LIBRARYI  UTILITY 


11/02/76 
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BANNER 


2 OF  2 


"1 


r 


I 

I 

I 

t program  •BANNPR3' 

( 

! PURPOSF 

I PRINT  3 BANNERS  ON  ONE  PAGE 

i FUNCTIONAL  CATEGORY!  QO 

i 

LANGUAGE!  FORTRAN  IV  EXTENDED 

REMARKS 

NONE 

EXECUTION 

FROM  BATCH 

I BEG IN, UTILITY,, BANNER  3, OUTPUT,<PAR AMS >. 

' FROM  TTY 

ATTACH, UTILITY. 

LIBRARY, UTILITY. 

BANNERS, OUT, <PARAMS>. 

(USUALLY  MORE  OUTPUT  IS  WRITTEN  ONTO  OUT) 
ROUTE, OUT, OC=PR, ... . 

EXECUTE  CARO  PARAMETERS 

BANNERS, OUT PUT, 8ANR1,BANR2,BANR3. 

OUTPUT  - LISTA3LE  OUTPUT 

BANRI  - FIRST  banner  (1-7  CHARACTERS) 

BANR2  - SECOND  BANNER  (1-7  CHARACTERS) 

8ANR3  - THIRO  BANNER  (1-7  CHARACTERS) 

THE  FOLLOWING  ARE  RECOGNIZED  FOR  ANY  BANR-NI 
CPU  - BANNER  IS  MACHINE  JOB  IS  RUNNING  ON 
DATE  - BANNER  IS  CURRENT  DATE 
TIME  - BANNER  IS  CURRENT  TIME 

DEFAULT  EXECUTE  CARO 

BANNERS, OUTPUT, CPU, DATE, TINE. 

DEFAULT  PL!  5000  LINES 

FL  NEEDED  TO  LOAD!  25000B 
FL  NEEDED  TO  RUN  I 150008 

OUTPUT  UNIT 

UNIT  i LFN  use 


OUTPUT  LISTABLE  OUTPUT 


Ofl/22777 
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BANNERS 


1 OF 


2 


05/11/77 

L 


SUBROUTINE  AND  FUNCTION  SU3PROGR4NS  REQUIREO 
P4RT  OF  14NGUAGE 


AND 

DATE  TINE 

OTHERS 

3ANR 

- WPITE  A BANNER 

CPU467 

- GET  THIS  CPU 

GETLFNS 

- GET  ACTUAL  LOCAL  FILE  NAMES 

ARITHMETIC  STATEMENT  FUNCTIONS 

L02FMT  - FAST  L-FORMAT  DECODE  (LEFT-AOJ,  ZERO-FILLED) 

AUTHOR 

DAVID  V SOMMER  - 0TNSR03  CODE  1892.2 

DATE  WRITTEN!  05/11/77 

lATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UTI L IT YPL » I 0=CS YS 

OBJECT 

EOITLIB  USER  LIBRARY!  UTILITY 
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BANNERS  - 2 


OF  2 

- ^ 


PROGRAM  'BINOEX' 


PURPOSE 

GIVE  LIST  AND  SORTED  LIST  OE  OUTPUT  OF  EDITLIB  »LISTLIB» 
AMO  •CONTEMT*  DIRECTIVES 

FUNCTIONAL  CATEGORY!  Q7 

LANGUAGE!  FORTRAN  IV  EXTENDED 


REMARKS 

•CONTENT*  AND  'LISTLIB*  DIRECTIVES  SHOULD  NOT  BE  MIXED  IN 
THE  SAME  EDITLIB.  MULTIPLE  'LISTLIB*  DIRECTIVES 
MAY  BE  USED  IN  ONE  EDITLIB.  ONLY  ONE  'CONTENT*  DIRECTIVE 
SHOULD  BE  USED  IN  AN  EDITLIB. 


EXECUTION 

FROM  BATCH 

ATTACH, LFN, ....  (FILE/LIBRARY  TO  BE  'BINOEXED*) 

EDITLIB, L=TAPE1. 

BEGIN,UTILITY,,BINOEX. 

7/3/9 

(EDITLIB  LISTLIB  OR  CONTENT  DIRECTIVES) 

ENDRUN. 

6/7/6/9 


FROM  TTY 

ATTACH, LFN, . ...  (FILE/LIBRARY  TO  BE  ‘BINDEXED*) 

CONNECT, INPUT 
EDITLIB, L=TAPE1. 

(ENTER  EDITLIB  LISTLIB  OR  CONTENT  DIRECTIVES) 

ENDRUN. 

(PERCENT)  EOF 

BEGIN, UTILITY,, BINOEX,, OUT. 

ROUTE, OUT, DC=PR,.... 

EXECUTE  CARD  PARAMETERS 

BIN0EX,TAPE1, OUTPUT, FILE NAME, SIZE, LEFT, SORT. 

TAPEl  - INPUT  FILE 

(OUTPUT  OF  EDITLIB) 

OUTPUT  - LISTABLE  OUTPUT 
FILENAME  - FILE  NAME  FOR  HEADING 

USED  WHEN  TAPEl  IS  OUTPUT  OF  'CONTENT* 
DIRECTIVE.  IS  MISSING,  'BINARY  FILE*  IS 
USED. 

SIZE  - ESTIMATED  NUMBER  OF  FILES  LISTED  ON 

TAPEl.  RANGE  IS  20-2000. 

DEFAULT!  20. 

LEFT  - PRINT  CENTERING 

LEFT  OR  MISSING  - PRINT  LEFT- A D JUSTE D ON 

PAGE 

OTHER  - PRINT  IN  CENTER  OF  PAGE 

SORT  - IF  OMITTED  OR  'SORT*  - PRINT  SORTED  LIST(S) 

IF  ANYTHING  ELSE  - PRINT  FIRST  LIST  ONLY 


08/22/77 
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BINDEX 


I OF  2 


1 


OEFftULT  EXECUTE  CURD 

8INDEX,TAPE1, OUTPUT, 'BlNARir  FILE  *,  2 0 , LEFT  , SORT  . 

FL  NEEDED  TO  LOADt  27000B 

(PROGPAM  GETS  CORE  AS  IT  IS  NEEDED) 

input/output  units 

UNIT  • LFN  use 


OUTPUT  LISTABLE  OUTPUT 

1 TAPEl  INPUT  FILE  (OUTPUT  OF  EOITLIB  'LISTLIB* 

OR  'CONTENT*  DIRECTIVE) 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

AND  EOF  MAXO  MINO  MOD 

MOVLEV  OR  RECOVR  REMARK  SHIFT 

PART  OF  PROGRAM 

EOU  - ABNORMAL  TERMINATION  ROUTINE 

PRINTIT  - PRINT  ORIGINAL  LISTING 
SORTIT  - SORT  AND  PRINT  ADDITIONAL  LISTINGS 
OTHERS 

ASORTMV  - SORT  Z DIMENSIONAL  ARRAV 

FTNRFL  - GET  CURRENT  FL 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 

IFMTV  - FAST  VARIABLE  I-FORMAT  DECODE 

ISITCNF  - TEST  FOR  CONNECTED  FILE 

REDUCE  - GET  CORE  AS  REQUIRED 

REPLAC  - REPLACE  ONE  CHARACTER  BY  ANOTHER 

arithmetic  STATEMENT  FUNCTIONS 
FAST  A-FORMAT  DECODES 

A22FMT  A55FMT  A62FMT  A63FMT 

FAST  L-FORMAT  DECODES  (LEFT-ADJ,  ZERO-FILLED) 

L43FHT  L45FMT  L71FMT  L76FMT 

AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1892.2 

DATE  WRITTENI  02706/75 

DATECS)  REVISED 
03/03/75 
11/03/75 
04/09/75 

10/22/76  - BYPASS  PAGE  HEADINGS  WHEN  ENTRY  POINTS  ARE  ON  TWO 
PAGES.  ADO  THE  PAGE  NUMBER  FROM  THE  EOITLIB 
LISTING  TO  THE  FIRST  LIST  IN  COLUMNS  118-120.  IF 
THE  OUTPUT  FILE  IS  CONNECTED  TO  A TELETYPE  AND 
LEFT  JUSTIFICATION  IS  REQUESTED,  COLUMNS  70-72 
ARE  USED. 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UTILITYPL , ID=CSYS 
OBUECT 

EOITLIB  USER  LIBRARY!  UTILITY 


r 


10/22/76 
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BINOEX 


2 OF  2 


I 

1 


Pr^OGRAM  *CAROS* 


PURPOSE 

REPRODUCE  A BCD  DECK  WITH  MODIFICATONS.  (FIELDS  HAY  3E 
MOVED,  DELETED,  INTERCHANGED,  GANG  PUNCHED  AND/OR  SEQUENCED) 

FUNCTIONAL  CATEGORY!  01 

REMARKS 

1)  UP  TO  5 FIELDS  MAY  BE  INTERCHANGED 

2)  UP  TO  10  fields  may  BE  MOVED  AND  REPLACED  BY  BLANKS 

3)  UP  TO  5 FIELDS  MAY  BE  DELETED 

4)  GANG  PUNCHING  OF  UP  TO  65  COLUMNS  MAY  BE  INSERTED 
IN  A FIXED  FIELD 

5)  SEQUENCING  MAY  BE  PERFORMED  IN  A FIELD  OF  UP  TO 
10  COLUMNS 

6)  OPTIONS  MAY  BE  SPECIFIED  IN  ANY  ORDER,  BUT  ARE  PROCESSED 
AS  FOLLOWS! 

A)  ALL  SWAPS,  IN  THE  ORDER  READ 

B)  ALL  MOVES,  IN  THE  ORDER  READ 

C)  ALL  DELETES,  IN  THE  ORDER  READ 

0)  ALL  GANGPUNCHING,  IN  THE  ORDER  READ 
E»  SEQUENCING  IS  PUT  IN 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
DATE 
EOF 
OTHERS 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 


ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGE!  FORTRAN  IV 


INPUT/OUTPUT  UNITS 
FORTRAN  LOCAL 
LOGICAL  FILE 

U-M.I.I  .MAHE  — 
5 INPUT 

OUTPUT 

PUNCH 


USE 

INPUT  FILE  CONTAINING  FIELD  CONTROL 
CARDS  AND  THE  DECK  TO  BE  REPRODUCED 
LISTABLE  OUTPUT 
PUNCHED  OUTPUT 


08/22/77  2-10 

L 


CARDS  - 1 OF  3 


EXECUTION 

FROM  larCH 

ATTACH, UTILITY, 

L03ET,LI8=JTILITY. 

CAROS. 

• r/8/9  EOR 

(FIELD  CONTROL  CAROS) 

(BLANK  CARO  OR  7/«/9) 

(DECK  TO  BE  PEPROOUCEO) 

" B/7/6/9  EOF 

FROM  TTY 

ATTACH, IN,....  (FIELD  CONTROL  CAROS  AND  DECK) 

ATTACH, UTILITY. 

LIBRARY, UTILITY. 

CARDS, IN, OUT. 

DISPOSE, OUT, PR=KYY. 

DISPOSE, PUNCH,PU=KYY. 

EXECUTE  CAPO  PARAMETERS 

C ARDS, INFILE, OUTPUT, ’UNCH, LI  ST. 

INFILE  - INPUT  FILE  CONTAINING  FIEL3  CONTROL 

CAROS  AND  THE  DECK  TO  BE  REPRODUCED 

OUTPUT  - LISTABLE  OUTPUT 

PUNCH  - PUNCHED  OUTPUT 

LIST  - PRINT  OPTION 

OMITTED  OR  ‘LIST*  - LIST  CAROS 
anything  else  - DO  NOT  LIST  CAROS 

DEFAULT  EXECUTE  CARO 

CAROS, INPUT, OUTPUT, PUNCH, LI  ST. 

FL  NEEDED  TO  LOAOl  260138 

DATA  CARDS 

ONE  OR  MORE  field  CONTROL  CARDS  FOlLORED  BY  A BLANK  CARO 
(OR  7/8/9  END-OF-RECORO)  FOLLOWED  BY  THE  DECK  TO  BE 
REPRODUCED. 

FIELD  CONTROL  CAROS 
COL  CONTENTS 


1 type  of  MODIFICATION 

0 - DELETE 

E - ENOPUNCH  (SEQUENCE) 

G - GANG  PUNCH 
M - MOYE 

S - SWAP  (INTERCHANGE) 

2-3  BLANK 

4-15  UP  TO  FOUR  (4)  3-COL'UMN  INTEGER  PARAMETERS 
(II  12  13  14) 

16-80  ALPHAMERIC  TEXT  FIELD,  LEFT-UUST IFIEO 
( 'G*  TYPE  ONLY) 


07/16/75  2-11  CARDS  - 2 OF 


.4 


1 


r 1 


'lODIFICftTION  TYPES 

0 II  12  DELETE  COLUIMS  II  H«U  12 

AND  REf’LACE  WITH  BLANKS 

E II  12  13  14  PUT  SEQUENTIAL  NUMBERS  INTO 

SOLJ-INS  II  THRU  12,  RIGHT- 
JUSTIFIED,  ZERO-FILLED,  BEGINNING 
WITH  13,  INCREMENTING  BY  14 
(OEFAJLTI  E 11  80  10  10> 

G II  12  TEXT...  REPLACE  COLUMNS  II  THRU  12 

WITH  THE  SPECIFIED  TEXT  FIELD 
(DEFAULT!  G 23  76) 

M II  12  13  14  MOVE  FIELD  IN  COLUMNS  II  THRU  12 

TO  FIELD  IN  COLUMNS  13  THRU  14  AND 
BLANK  THE  FORMER  FIELD 
(14  MAY  BE  OMITTED) 

S II  12  13  14  SHA3  FIELD  IN  COLUMNS  II  THRU  12 

WITH  FIELD  IN  COLUMNS  13  THRU  14. 
(14  HAY  BE  OMITTED) 

AUTHORS 

SHARON  E GOOD  - NSRDC  CODE  1392.1 
DAVID  V SOMMER  - NSRDC  CODE  1892.2 

DATE  WRITTEN!  12/72 

DATE(S)  REVISED 
07/16/75 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UT I L IT YPL , I D=CS Y S 
OBJECT 

E0ITLI3  USER  LIBRARY!  UTILITY 


0 7/16/75 
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PROGRAM  'CARDSe* 


PURPOSE 

REPROOUCE  A BCD  DECK  WITH  MOOIEICATIOMS.  (FIELDS  MAY  BE 
COPIED,  MOVED,  DELETED,  INTERCHANGED,  GANG  PUNCHED  AND/OR 
SEQUENCED. ) 

FUNCTIONAL  CATEGORYl  01 


remarks 

1)  UP  TO  10  FIELDS  MAY  BE  COPIED 

2)  UP  TQ  10  FIELDS  MAY  BE  INTERCHANGED 

3)  UP  TO  10  FIELDS  MAY  BE  MOVED  AND  REPLACED  BY  BLANKS 

4)  UP  TO  10  FIELDS  MAY  BE  DELETED 

5)  GANG  PUNCHING  OF  UP  TO  65  COLUMNS  MAY  BE  INSERTED 
IN  A FIXED  FIELD 

6)  SEQUENCING  MAY  RE  PERFORMED  IN  A FIELD  OF  UP  TO 
10  COLUMNS 

7)  OPTIONS  ARE  PERFORMED  IN  THE  FOLLOHING  OROERI 
A>  ALL  COPIES,  IN  THE  ORDER  READ 

8)  ALL  DELETES,  IN  THE  ORDER  READ 
C>  SEQUENCING 

D)  ALL  GANGPUNCHING , IN  THE  ORDER  READ 

E)  ALL  MOVES,  IN  THE  ORDER  READ 

F)  ALL  SWAPS,  IN  THE  ORDER  READ 


SUBROUTINE 
PART  OF 


AND  FUNCTION 
LANGUAGE 


SUBPROGRAMS  REQUIRED 


CLOSEM 

MOVLEV 

OTHERS 

EOJ 

GETLPNS 

IFMTIO 

lOPEN 

REDUCE 

PEPLAC 

VALID 

VFILL 


DATE 

OPENM 


FILESQ 

RECOVR 


GET 

SHIFT 


IFETCH 

TIME 


ABNORMAL  TERMINATION  ROUTINE 
GET  ACTUAL  LOCAL  FILE  NAMES 
FAST  110-FDRmAT  encode 
TEST  FOR  RM  FILE  OPEN 
REDUCE  CORE  TO  MINIMUM  NEEDED  TO 
REPLACE  ONE  CHARACTER  BY  ANOTHER 
VALIDATE  FIELD  CONTROL  CAROS 
FILL  array  with  WORD 


ARITHMETIC  STATEMENT  FUNCTIONS 
fast  I-FORMAT  DECODES 

I33FMT  I34FMT  I37FMT  I310FMT 

FAST  L-FORMAT  decodes  (LEFT-ADU,  ZERO-FILLED) 
LIEMT  LllEHT 

LANGUA&EI  FORTRAN  IV 


INPUT/OUTPUT  UNITS 
FORTRAN  LOCAL 

LOGICAL  FILE 

UNIT  NAME 


OEK 

FCC 

OUTPUT 

PUNCH 


DECK  TO  BE  REPRODUCED 
FIELD  CONTROL  CAROS 
LISTABLE  OUTPUT 
PUNCHED  OUTPUT 


OM/22/77 
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FXEGUnON 

FROM  BATCH 

ATTACH, UTILITY. 

LaSEr,LlB=UTILITY. 

CARDS?, INPUT , INPUT. 

* 7^8/9  EOR 

(FIELD  CONTROL  CARDS) 

(BLANK  CARO  OR  7/3/9) 

(OFCK  TO  BE  REPRODUCED) 

” 6/7/8/9  EOF 

FROM  TTY 

ATTACH,FCC,.  ...  (FIELD  CONTROL  CARDS) 

ATTACH, OEK,.  . ..  (DECK  TO  BE  REPRODUCED) 

ATTACH, UTILITY. 

LIBRARY, UTILITY. 

CARDS?, ,, OUT. 

DISPOSE, OUT, PR=KYY. 

DISPOSE, PUNCH,PU=KYY. 

EXECUTE  CARO  PARAMETERS 

CARDS?,FCC,OEK,OUTPUT,PUNCH,OPTION. 

FCC  - INPUT  FILE  OF  FIELD  CONTROL  CAROS 

OEK  - INPUT  FILE  OF  DECK  TO  BE  REPROOUCEO 

(MAY  3E  same  AS  FCC) 

OUTPUT  - LISTA3LE  OUTPUT 

PUNCH  - PUNCHED  OUTPUT 

OPTION  - OUTPUT  OPTION 

OMITTED  OR  *ALL*  - LIST  AND  PUNCH 

•LIST*  - LIST  ONLY 

•PUNCH*  - PUNCH  ONLY 

ANYTHING  ELSE  - NO  LIST  OR  PUNCH 

(FIELD  CAROS  CHECKED) 

DEFAULT  EXECUTE  CARO 

CAROS?,FCC,DEK,OJTPUr, PUNCH, ALL. 

FL  NEEDED  TO  LOAD!  3?a008 

(PROGRAM  REDUCES  TO  MINIMUM  NEEDED  TO  RUN) 


m 


11/10/75 


?-l4 


CARDS? 


? OF  3 


IftTA  CAiROS 

ONE  OR  MORE  FIELD  CONTROL  CAROS  FOLlOi<EO  3Y  A -OlANK  CARO 
(OR  r/9/9  ENO-OF-RECORO) . DECK  TO  RE  REPRODUCED  MAT 
FOLLOW  OR  BE  IN  A SEPARATE  FILE. 

FIELD  CONTROL  CAROS 
COL  CONTENTS 


1 TYPE  OF  MODIFICATION 

C - COPY 
0 - OELFTF 

E - FNDPUNCH  (SEQUENCE) 

G - GANG  PUNCH 

M - MOVE  AND  BLANK  FORMER  FIELD 
S - SWAP  (INTERCHANGE) 

2-3  BLANK 

i^-l^  UP  TO  FOUR  (<♦)  3-COLUMN  INTEGER  PARAMETERS 
(II  12  13  14) 

16-80  alphameric  text  FIELD,  LEFT-JUSTIFIED 


MODIFICATION 

TYPES 

C 

11 

12 

13 

COPY  FIELD  IN  COLUMNS  11  THRU  12 
INTO  FIELD  STARTING  AT  13.  RETAIN 
THE  FORMER  FIELD. 

D 

11 

12 

delete  columns  11  THRU  12  AND 
REPLACE  WITH  BLANKS. 

E 

11 

12 

13  14 

PUT  SEQUENTIAL  NUMBERS  INTO 

COLUMNS  11  THRU  12,  RIGHT- 
JUSTIFIED,  ZERO-FILLED,  BEGINNING 
WITH  13,  INCREMENTING  DY  14. 

G 

11 

12 

TEXT. 

..  REPLACE  COLUMNS  11  THRU  12  WITH 

THE  SPECIFIED  TEXT  FIELD. 

(DEFAULT*  G 73  76) 

M 

11 

12 

13 

MOVE  FIELD  IN  COLUMNS  11  THRU  12 

TO  FIELD  STARTING  IN  13.  BLANK 

THE  FORMER  FIELD. 

S 

11 

12 

13 

SWAP  FIELD  IN  COLUMNS  11  THRU  12 
WITH  FIELD  STARTING  IN  13. 

NOTE* 

IN 

ALL 

CASES,  12 

MAY  NOT  BE  LESS  THAN  11. 

AUTHOR 

DAVID  V SOMMER  - NSRDC  CODE  1392.2 

(BASED  ON  PROGRAM  'CARDS*  BY  SHARON  E GOOD) 

DATE  WRITTENI  07/21/25 

OATE(S)  REVISED 
11/10/75 

10/04/76  - CORRECT  O/G  OPTIONS  REQUIRING  13  FIELD 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRAP.YI  UT  IL  ITYPL,  I3  = CSrS 
OBJECT 

EDITLI3  USER  LIRRARYt  UTILITY 


10/04/76 
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PROGRAM  'CCRM* 
i PURPOSE 

i EXTRAGT  all  PAGES  FROM  COMPUTER  CENTER  REFERENCE  MANUAL 

j WHICH  MEPE  MODIFIED  AFTER  USER- SPEC  I FI ED  DATE 

j FUNCTIONAL  CATEGORIFSt  01 

LANGUAGEI  FORTRAN  IV  EXTENDED 

REMARKS 

THE  TTLF  PAGE  AND  THE  *R*  PAGES  ARE  ALWATS  PRINTED. 

EXECUTION 

FROM  3ATCH 

DEGIN,UTILITY,,CCRM,MONTH,yEAR. 

FROM  TTY 

3EGIN, UTILITY , , CC RM , MONT H , Y E A R, OUT . 

ROUTE, OUT,OD=PR,.... 

EXECUTE  CARD  PARAMETERS 

CCRM, OUTPUT, MONTH, YEAR, PM. 

OUTPUT  - LISTABLE  OUTPUT 

MONTH  - FIRST  3-A  CHARACTERS  OF  MONTH  (E.G.,  JAN, 
FEB,  ETC.)  OR  THE  APPROPRIATE  DIGITS 
(1-12) 

YEAR  - 2 OR  4 DIGITS  OF  YEAR  (E.G.,  T6,  1976) 

(ALL  pages  modified  AFTER  MONTH, YEAR  WILL  BE 
PRINTED) 

PM  - OMITTED  OR  'NDPM*  - DO  NOT  PUT  'PM* 

MESSAGES  AT  START  AND 
END  OF  OUTPUT 

»C*  - PRINT  CENTERED  ON  WIDE 

PAGE.  NO  *PM*  MSGS. 
ANYTHING  ELSE  - PUT  THE  MESSAGE 

•PM  1-PART  NARROW 
JNLINEO  PAPER' 

AT  START  OF  OUTPUT  AND 
'PM  RESTORE  PRINTER' 

AT  THE  END 

U5F  ONLY  FOR  TERMINALS  WHICH  WILL  SUPPORT 
'PM'  MESSAGES 

default  execute  CARD 

I CCRM, OUTPUT, 0, 0 ,NOPM. 

(WILL  PRINT  ENTIRE  MANUAL  BUT  IS  NOT  EFFICIENT) 

f 

FL  NEEDED  TO  LOAD!  30000B 
FL  NEEDED  TO  RUN  I 200008 

INPUT/OUTPUT  UNITS 

UNIT  # LFN  USE 


OUTPUT  LISTABLE  OUTPUT 

ZZ7CCRM  COMPUTER  CENTER  REFERENCE  MANUAu 

(ATTACHED  AND  RETURNED  BY  PROGRAM) 
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EyA^1PLES 

TO  PRINT  ALL  PAGES  MOOIFIEO  A-TER  MARSH,  1976  (REVISI3NS 

A,  5,  . . .)  I 

CCRM,,HAR,76. 

TO  PRINT  ALL  PAGES  MOOIFIEO  IN  REVISION  5 ON  (REVISION  4 
DATE  IS  JULY,  1976) I 
CCRM, ,7,1976. 

TO  PRINT  ALL  PAGES  MOOIFIEO  SINSE  THE  MANUAL  MAS  PRINTEDI 
CCRM,, SEPT, 75. 

SUBROUTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

ANO  CLOSEM  FILESQ  GET  IFETCH 

OPENM  RECOVR  REMARK  SHIFT 

PART  OF  program 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 

OTHERS 

FINOMPO  - SEARCH  ARRAY  FOR  MORO 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 

IFMTV  - FAST  VARIABLE  I-FORMAT  DECODE 

ZP'^UNC  - ATTACH  COMPUTER  CENTER  REFERENCE  MANUAL 

arithmetic  statement  functions 

FAST  I-FORMAT  DECODE 
I23FMT 

FAST  L-FORMAT  DECODE  (LEFT-AOJ,  ZERO-FILLED) 

LllFMT  L36FMT  L61FMT  L81FMT 

AUTHOR 

OAVTO  V SOMMER  - OTNSROC  CODE  1892.2 

BATE  WRITTENI  10/13/76 

OATE(S)  REVTSEO 

LOCATION  OF  DECKS 
SOURCE 

UPOATE  LIBRARYI  UT I L IT Y PL , I 0=CS VS 

OBJECT 

EDITLIB  USER  LIBRARY!  UTILITY 


PROGRAM  •COPYEXT* 


PURPOSE 

CO^Y  UNIT  RECORDS  (ZERO  BYTE  TERHIMATEO)  EXTRACTING 
SPECIFIED  COLUMNS  ANC  OPTIONALLY  MOWING  THEM  AND  OPTIONAL. Y 
ADO  EDITOR  SEQUENCING 

FUNCTIONAL  CATEGORIFSl  01  M4 

LANGUAGEI  fortran  IV  EXTENDED 

REMARKS 

DEFAULT  IS  TO  COPY  FIRST  72  COLUMNS. 


EXECUTION 

FROM  BATCH 

ATTACHfTAPEl,....  (FILE  TO  BE  COPIED) 

ATTACH, UTILITY. 

LIBRARY, UTILITY. 

COPYEXT,,,<PARAMETERS>. 

(DO  something  WITH  TAPE2) 


FROM  TTY 

ATTACH,TAPE1,....  (FILE  TO  BE  COPIED) 

3EGIN,UTILITY,,C0PYEXT,,, <PARAMETERS>. 

(DO  SOMETHING  WITH  TAPE2) 


EXECUTE  CARO  PARAMETERS 

CORYEXT , INFILE, OJTFILE,REW, FROM, TO, AT ,EOITSEQ, START, I NCR, 


OUTPUT. 

INFILE 

OUTFILF 

REW 


FROM 

TO 

AT 

EOITSEQ 


START 

TNCR 

OUTPUT 


INPUT  FILE  TO  BE  COPIED 

OUTPUT  FILE  (NOT  REWOUND) 

iNFILE  REMIND  OPTION 

A - REWIND  AFTER  USE 

B - REWIND  BEFORE  USE 

R - REWIND  BEFORE  AND  AFTER  USE 

u - rewind  before,  rewind  and  unload 

AFTER  USE 

OTHER  - NO  REWIND  (DEFAULT) 

(ANY  WORDS  BEGINNING  WITH  THESE  LETTERS 
WILL  PRODUCE  THE  SAME  RESULTS) 

STARTING  COLUMN  FOR  EXTRACTING 
(1-140;  DEFAULT)  1) 

ENDING  COLUMN  FOR  EXTRACTING 
(1-140;  DEFAULT)  72) 

FIRST  COLUMN  IN  OUTFILE  FOR  EXTRACTED 
RECORD  (1-140;  DEFAULT)  1) 

EDITOR  SEQUENCING  OPTION 
•E»  - ADD  EDITOR  SEQUENCING 

ANYTHING  ELSE  - NO  EDITOR  SEQUENCING 
STARTING  SEQUENCE  NUMBER 
(DEFAULT)  100) 

SEQUENCING  INCREMENT 
(DEFAULT)  10) 

LISTABLE  OUTPUT  (FTN  ERROR  MESSAGES) 


DEFAULT  EXECUTE  CARO 

CuPYtKI ,I APtl,T A?E2,NOREW,l,72,l,NDE0SEQ,100,l,OUTPUT. 
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□EPAUwT  PLt  5000  LINES 


EL  NEEDED  TO  LOAD!  TOOOOB 
FL  NEEDED  TO  RUN  I 200000 


ERROR  MESSAGES 

CANNOT  COPY  ALL  CHARACTERS 

the  specified  field  (FROM  THRU  TO)  HILL  NOT  FIT  IN 
OUTFILE  STAPTING  AT  COLUMN  AT.  ONLY  141-AT  COLUMNS 
WILL  OE  MOVED. 

FROM  GT  TO 


NEGATIVE  FIELD  SIZE  NOT  VAlIO  - JOB  TERMINATED 
INCR  INVALID  - 10  USED 

USER  SPECIFIED  A NON-POSITIVE-INTEGER  FOR  EDITOR 
SEOUENCING  INCREMENT.  DEFAULT  OF  10  IS  USED. 

INPUT  ftle  empty  , 

INPUT  file  at  EOI  --  JOB  TERMINATED 

IF  RFH=a,  R OR  U WAS  SPECIFIED,  FILE  HAS  NO  INFORMATION 


IN  IT. 

start  INVALID  - 100  USED 

USER  SPECIFIED  A NON-POSITIVE-INTEGER  FOR  STARTING  EDITOR 
SFOUENCE  NUMBER.  DEFAULT  OF  103  USED. 


INPUT/OUTPUT  UNITS 
UNIT  0 LFN 


USE 


OUTPUT 

TAPEl 

TAPE2 

OAYFILE 


ETN  ERROR  MESSAGES 
INPUT  FILE  TO  BE  COPIED 
OUTPUT  FILE  (NOT  REWOUND) 
PROGRAM  ERROR  MESSAGES 


SUBROUTINE 
PAPT  OF 
CLOSE 
MINO 
OTHERS 
GETLF 
IFMTV 
LASTC 
MOVST 
SETRE 
VFILL 


AND  FUNCTION  SUBPROGRAMS  REQUIRED 
LANGUAGE 

M FTLESQ  GET  IFETCH 

OPENM  PUT  REMARK 

NS  - GET  ACTUAL  LOCAL  FILE  NAMES 

- FAST  VARIABLE  I-FORMAT  DECODE 

- FIND  LAST  NON-BLANK  CHARACTER 
R - MOVE  CHARACTER  STRING 

W - DECODE  REWIND  OPTION 

- FILL  ARRAY  WITH  WORD 


MAXO 

WEOR 


author 

DAVID  V SOMMER  - OTNSROC  CODE  1892.2 


DATE  WRITTEN)  02/25/77 


OATF(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UTILITYPL , I 0=CS YS 

OBJECT 


02/25/77 
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p^.or.RflM  'copytiB* 


PURPOSE 

FROM  AN  E0ITLI9  LISTLI9  LISTING,  CREATE  SORTED  (OR  JNSORTED) 
DIRECTIVFS  TO  COPT  AN  EDITLI3  USER  LISRART 

functional  TATEGORYI 

LAN&UAGEI  FORTRAN  IV  EXTENDED 

REMARKS 

FOR  E0TTLI9  SYSTEM  LIBRARIES,  JSE  PROGRAM  USYSLI8. 

EXECUTION 

FROM  BATCH  AND  TTY 

USE  PUBLIC  PROCEDURE  'COPYLIB*. 

EXECUTE  CARO  PARAMETERS 

COPYLI3,INFILE,LIBOIR,NEHLI3,SORT ,OUTPUT. 

INFILE  - INPUT  FILE  CONTAINING  EDITLIB  LISTlIB  LIST 
LIBDIR  - OUTPUT  FILE  CONTAINING  THE  UPDATE 
DIRECTIVES 

NEWLIB  - LFN  OF  NEW  LIBRARY 

SORT  - OMITTED  OR  'SORT'  - SORT  ROUTINE  NAMES 
ANYTHING  ELSE  - DO  NOT  SORT 

OUTPUT  •-  FTN  ERROR  MESSAGES 

default  execute  CARO 

COP YL 13, T A PEI, LIBDIR, NEWLIB, SORT, OUTPUT. 

FL  NEEDED  TO  LOADI  3B030B 
FL  NEEDED  TO  RUN  I 25000B 

(PROGRAM  ADJUSTS  CORE  AS  REQUIRED) 

INPUT/OUTPUT  UNITS 

UNTT  » LFN  USE 


LIBDIR  OUTPUT  FILE  CONTAINING  EDITLIB 

DIRECTIVES 

NEWLIB  FILE  TO  CONTAIN  NEW  LIBRARY 

(PF  SPACE  IS  obtained  BUT  NOTHING  IS 
WRITTEN  ON  THE  FILE) 

OUTPUT  LISTABLE  OUTPUT  (FTN  ERROR  MESSAGES) 

I TAPEl  INPUT  FILE  CONTAINING  EDITLIB  LISTLIB 

LISTING 


0F/2P/7T 
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S'JB°OUTI^^E  ftND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 


CLOSEM 

OPENM 

others 

ASORTMV 

GETLFNS 

LEFTAOJ 

MO»/STR 

PUTCHA 

REDUCE 

REPLAC 

REQUEST 


ftlesq 

PUT 


GET 

remark 


IFETDH 


MOVLEV 


SORT  ARRAY  USING  MOVLEV 
GET  ACTUAL  LOCAL  FILE  NAMES 
SQUEEZE  LEFT  AND  REMOYE  BLANKS  AND 
MOVE  A STRING  OF  CHARACTERS 
INSERT  A CHARACTER  INTO  AN  ARRAY 
ADJUST  CORE  UP  AND  DOWN 
REPLACH  ONE  CHARACTER  WITH  ANOTHER 
REQUEST, NEHLIB,*»F, 


OOB 


arithmetic  statement  functions 

PAST  L-FORMAT  DECODE  <LEFT-ADJ,  ZERO-FILLED) 
LllFMT  L61FMT  L81FMT 
FAST  R-FORMAT  DECODE  (RIGHT-ADJ,  ZERO-FILLED) 
RllOFMT  R47FMT 

AUTHOR 

OAVIO  V SOMMER  - OTNSROC  CODE  1892.2 


QATE  WRITTEN!  11/15/76 


QATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UT IL IT YPL , I 0=CS YS 

OBJECT 

EDITLIB  USER  LIBRARY!  UTILITY 


11/15/76 
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PROGRAM  'COPYRE* 


PURPOSE 

COPY  ANO  REARRANGE  FILE  OF  ZERO  BYTE  TERMINATEU  RECORDS 
(ISO  CHAPACTERS  MAXIMUM  PER  RECORD) 

FUNCTIONAL  CATEGORYI  01  K1 

REMARKS 

NONE 

SU9P0UTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIREO 
PART  OF  LANGUAGE 

CLOSEM  EOF  FILESQ  GET  IFETCM 

MOVLFW  OPENM  PUT  RECO>/R  REMARK 

PART  OF  PROGRAM 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 
OTHERS 

FTNRFL  - GET  CURRENT  FIELD  LENGTH 
GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 
LA3TC  - FIND  LAST  NON-BLANK  CHARACTER 
REDUCE  - ADJUST  CORE  AS  REQUIREO 
SETREW  - DFCODE  REWIND  OPTION 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGEI  fortran  IV 
METHOD 

1.  READ  RANGE  CAROS. 

2.  READ  INPUT  FILE  INTO  CORE. 

3.  VERIFY  ANO  LIST  RANGES. 

4.  IF  ALL  RANGES  VALID,  COPY  FILE  AS  REQUESTED. 


INPUT/OUTPUT  UNITS 

—LEW USE 

INPUT  RANGE  CARDS  INPUT  FILE 

OUTPUT  LISTABLE  OUTPUT 

TAPEl  FILE  TO  BE  COPIED  ANO  RE-ARRANGED 

TAPE2  OUTPUT  (RE-ARRANGED)  FILE 


EXECUTION 

FROM  BATCH 

ATTACH,TAPE1,.. ..  (FILE  TO  BE  COPIED  ANO  RE-ARRANGED) 

REQUEST, TAPE2,*PF. 

BEG  IN, UTILITY,, COPYRE. 

CATALOG, TAPE2,.  ... 

7/8/9  EOR 

(RANGE  CAROS.  END  WITH  0,0) 

6/7/0/9 


FROM  TTY 

ATTACH, TAPEl, ..  ..  (FILE  TO  BE  COPIED  AND  RE-ARRANGED) 

CONNECT, INPUT, OUTPUT. 

REQUEST , TAPE?, *PF. 

BEGIN, UTILITY,, COPYRE. 

(ENTER  RANGES  - THERE  IS  NO  PROMPTING  - END  WITH  0,0) 
CATALOG, TAPE2,.  ... 
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EXECUTE  CIVPO  PARA^1ETE!?S 

COPYRF,INPUT,INFILE,OUTFILE, REM, OUTPUT. 

INPUT  - RANGE  CARO  INPUT  FILE 

INFILE  - FILE  TO  BE  COPIED  ANO  RE-ARRANGEO 

OUTFILE  - OUTPUT  C RE-ARRANGEO)  FILE 

REM  - INFILE  PFWIND  OPTION 

A - REMIND  AFTER  USE 

8 - REWIND  BEFORE  USE 

R - REMIND  BEFORE  AND  AFTER  USE 

U - REMIND  BEFORE,  REWIND  ANO  UNLOAD 

AFTER  USE  (IF  ABEND,  U IS  CHANGED 
TO  R) 

OTHER  - NO  REMIND  (DEFAULT) 

(ANY  WORDS  BEGINNING  WITH  THESE  LETTERS  HILL 
PRODUCE  THE  SAME  RESULTS.) 

OUTPUT  - LISTA3LE  OUTPUT 

DEFAULT  EXECUTE  CAPO 

COPYRE, INPUT , TAPE  1, T A PE2,N0RFW, OUTPUT . 

FL  NEEDED  TO  LOAOt  32000B 
FL  NEEDED  TO  RUN  I 22000B 

(PROGRAM  ADJUSTS  CORE  UP  AND  DOWN  AS  REQUIRED) 

DATA  CARDS 

RANGE  SPECIFICATION  CARDS  ARE  FREE-FORM.  EACH  CARD  MUST 
CONTAIN  TWO  (2)  NUMBERS,  EVEN  IF  THE  SECOND  IS  0,  SEPARATED 
BY  A COMMA  ( ,) . 

THE  FIRST  NUMBER  IS  THE  STARTING  RECORD  NUMBER. 

THE  SECOND  NUMBER  IS  THE  ENDING  RECORD  NUMBER. 

IF  R1  GT  R2,  PROGRAM  ABORTS. 

IF  R1  GT  MAXIMUM  NUMBER  OF  RECORDS  IN  INFILE, 

PROGRAM  ABORTS. 

IF  R2  GT  MAXIMUM  NUMBER  OF  RECORDS  IN  INFILE,  THE  MAXIMUM 
NUMBER  IS  substituted. 

IF  R2  IS  0,  R1  IS  substituted. 

IF  R1  IS  0,  IT  signals  THE  END  OF  THE  RANGE  CARDS. 

END  RANGE  CARDS  WITH  G,0. 

AUTHOR 

DAVID  V SOMMER  - OTNSRDC  COOE  1692.2 

DATE  WRITTEN!  03/30/76 

OATE(S)  REVISED 
04/02/76 
04/26/76 

1)5/20/76  - INCREASE  TO  150  CHARACTER  RECORDS 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UTILIT YPL , ID=CSYS 
OBUFCT 

E0ITLI3  USER  LI“RARYI  UTILITY 


05/20/76 
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program  ‘COPrSEL* 


PURPOSE 

COPY  ANO  REARRANGE  FILE  OF  ZERO  BYTE  lERHINATEO  RECORDS 
(150  CHARACTERS  MAXIMUM  PER  RECORD;  FILE  PROCESSED  DIRECTLY) 

FUNCTIONAL  CATEGORY)  01  K1 

LANGUAGE!  FORTRAN  IV  EXTENDED 

remarks 

•COPYSEL'  IS  SIMILAR  TO  »COPYRE*.  ‘COPYSEL*  WORKS  DIRECTLY 
WITH  infile;  'COPYRE*  reads  he  entire  FILE  INTO  CORE  FIRST. 
USE  'COPYSEL*  IF  iNFILE  IS  TO  BE  PROCESSED,  FOR  THE  MOST 
PART,  IN  THE  FORWARD  DIRECTION.  USE  'COPYRE'  IF  THERE  IS  A 
MUCH  RF-ARRAUGING  TO  BE  DONE.  JSE  'COPYSEL'  IF  INFILE  IS 
TOO  LARGE  FOR  'COPYRF'. 

EXECUTION 

FROM  BATCH 

ATTACH,TAPE1,....  (FILE  TO  BE  COPIED  ANO  RE-ARRANGED) 

ATTACH, UTILITY. 

REQUEST, TAPE2,*PF. 

LOSET,LIB=UTILITY. 

COPYSEL. 

CATALOG, TAPE2,.  ... 

' Z/8/9  EOR 

(RANGE  CAROS.  END  WITH  Q,0) 

- 6/7/8/9  EOF 

PROM  TTY 

ATTACH,TAPE1,.. ..  (FILE  TO  BE  COPIED  AND  RE-ARRANGEO) 

ATTACH, UTILITY. 
library, UTILITY. 

DISCONT, OUTPUT. 

REQUEST, TAPE2,*PF. 

COPYSEL. 

(FNTER  RANGES  - TiERE  IS  NO  PROMPTING  - END  WITH  0,0 
ROUTE,OUTPUT,CC=PR, .... 

CATALOG, TAPE2,. .. . 

EXECUTE  CARO  PARAMETERS 

copysel,input,infile,outfile,rew,outpjt. 

INPUT  - RANGE  CARO  INPUT  FILE 

INFILE  - FILE  TO  BE  COPIED  AND  RE-ARRANGEO 

OUTFILE  - OUTPUT  (RE-ARRANGEO)  FILE 

REW  - INFILE  REWIND  OPTION 

A - REWIND  AFTER  JSE 

9 - REWIND  BEFORE  USE 

k - REWIND  BEFORE  AND  AFTER  USE 

U - REMIND  BEFORE,  REWIND  AND  UNLOAD 

AFTER  USE  (IF  ABEND,  J IS  CHANGED 
TO  R) 

OTHER  - NO  REWIND  (DEFAULT) 

(ANY  WORDS  BEGINNING  WITH  THESE  LETTERS  WILL 
PRODUCE  THE  SAME  RESULTS.) 

OUTPUT  - LISTA3LE  OUTPUT 


DEFAULT  EXECUTE  CARD 

CO»YSEL,INPUT,T APE l,rAPE2, NOREW, OUTPUT. 

FL  needed  to  LOADI  32003B 

fl  needed  to  run  I 22000a 

DATA  CAROS 

RANGE  SPECIFICATION  CARDS  ARE  FREE-FORM.  EACH  CARO  MUST 
CONTAIN  TWO  (2>  NUMBERS,  EVEN  IF  THE  SECOND  IS  0,  SEPARATED 
BY  A COMMA  ( ,) , 

THE  PIRST  NUMBER  IS  THE  STARTING  RECORD  NUMBER. 

The  second  number  is  the  ending  recopo  number. 

IF  R1  GT  R2,  program  ABORTS. 

IF  R1  GT  MAXIMUM  NUMBER  OF  RECORDS  IN  INFILE, 

PROGRAM  ABORTS. 

IF  R2  GT  MAXIMUM  NUMBER  OF  RECORDS  IN  iNFILE,  iNFILE  IS 
COPIED  TO  ENO-OF-FILE. 

IF  R2  LT  0,  INFILE  IS  COPIED  TO  ENO-OF-FILE. 

IF  R2  IS  0,  R1  IS  SUBSTITUTED. 

IF  R1  IS  0,  IT  SIGNALS  THE  END  OF  THE  RANGE  CARDS. 

END  range  cards  WITH  0,0. 

ERROR  MESSAGES 

INPUT  FILE  EMPTY 

INPUT  FILE  IS  EMPTY  OF  NOT  REWOUND 
INPUT/OUTPUT  UNITS 

UNIT  # lfn  use 


DAYFILE  ERROR  MESSAGE  IF  INPUT  FILE  EMPTY 

INPUT  RANGE  CARDS  INPUT  FILE 

OUTPUT  LISTA8LE  OUTPUT 

TAPEl  FILE  TO  BE  COPIED  AND  RE-ARRANGED 

TAPE2  OUTPUT  CRE-ARRANGEO)  FILE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 

CLOSEM  DATE  EOF  FILESQ  GET 

IFETCH  OPENM  PUT  RECOVR  REMARK 

REWNO  SKIP  TIME 

PART  OF  PROGRAM 

EOU  - ABNORMAL  TERMINATION  ROUTINE 

others 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 
LA5TC  - FIND  LAST  NON-BLANK  CHARACTER 
SETREW  - DECODE  REWIND  OPTION 


07/2B/77 
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4UTH0R 

OAyiO  SOMMFR  - DTNSROC  CODE  1893.2 


OflTE  WRITTENI  04/27/76 
OATE(S»  REVISED 

35/20/76  - VI. 1 - RECORD  LENGTH  CHANGED  TO  150  CHARACTERS 
07/28/77  - VI. 2 - SHORTEN  OUTRUT  SUMMARY 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UTILITYPL , IO=CSYS 
OBJECT 

EOITLIB  USER  LIBRARYI  UTILITY 


07/29/77 
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PROGRaM  'CWPS' 


PURPOSE 

CONVERT  TO  029  PUNCH  COOE  | 

FJNCTIONaL  CaTEGORIESI  J1  M2  01  ] 

LANGUaGEJ  FORTRAN  IV  AND  C3C  6000  COMPASS 
REMARKS 

OUTPUT  file  to  be  PUNCHED  IS  »TAPEl*.  THE  USER  MAY  NOT 

CHANGE  IT.  ‘TAPEl*  IS  NOT  REWOUND.  ! 

EXECUTION 

FROM  aaiCH  AND  TTY 

ATTACHjANY,....  (FILE  TO  BE  CONVERTED) 

RE0UEST,TAPE1,*Q. 

3EGIN,UTILITY,,CV29,aNY. 

DISPOSE t TAPE  1 ,P8  = XYY. 

EXECUTE  CARD  PARAMETERS 

CV29, INFILE, , OUTPUT.  ; 

INFILE  - FILE  TO  BE  CONVERTED  ; 

OUTPUT  - LISTABLE  OUTPUT  j 

DEFAULT  EXECUTE  CARO 
CV29, INPUT, , OUTPUT. 

FL  NEEDED  TO  LOADI  24000B 


INPUT/OUTPUT 

5 


UNITS 

— LEN_. 

INPUT 

OUTPUT 

TAPEl 

OAYFILE 


- USE 

INPUT  FILE 

LIST  NUMBER  OF  CAROS  PUNCHED 
OUTPUT  FILE  TO  BE  PUNCHED 
NUMBER  OF  CAROS  PROCESSED 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
REMARK 
OTHERS 

CONVCB  WPRU 


AUTHORS 

? - original  AUTHOR 

SHARON  E GOOD  - OTNSRDC  COOE  1892.2 

DATE  WRITTENI  / /7 

OATECS)  REVISED 
10/10/75 

LOCATION  OF  DECKS 
SOURCE 

COOF  1892 
OOUECT 

EOITLIB  USER  LIBRARYl  UTILITY 


08/22/77 
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P=lOGRaM  ’DECK* 


PURPOSE 

LIST  UPDATE  'SOURCE*  FILE  DECK/COMOECK  NAMES,  SEQUENCE 
NUMDER  AND  NUMBER  OF  CAROS 

FUNCTIONAL  CATEGORYI  Q7 


REMARKS 

NUMBER  or  RECORDS  DOES  NOT  INCLUDE  ♦ DECK/*COMOECK  CAROS. 

SUBROUTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

ANO  CLOSEM  DATE  FILE5Q  GET 

IFETCH  MOD  MOVLEV  OPENM  OR 

RECOYR  remark  SHIFT  TIME 

PART  OF  PROGRAM 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 

OTHERS 

ADUL  - SQUEEZE  LEFT  (ENGLISH  RORDS) 

CENTER  - CENTER  PHRASE  IN  LINE 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 

LASTC  - FIND  LAST  NON-BLANK  CHARACTER  IN  STRING 

PAKLFT  - SQUEEZE  LEFT  AND  REMOVE  BLANKS  ANO  003 

SETREW  - DECODE  PEHINO  OPTION 

ARITHMETIC  STATEMENT  FUNCTIONS 

FAST  L-FORMAT  DFCOOE  (LEFT-AOJ,  ZERO-FILLED) 

LllFMT  L51FMT  LftlFMT  L97FMT  L910FMT 

FAST  R-FORMAT  DECODE  (RIGHT-AOU,  ZERO-FILLED) 

R16FMT  R19FMT 

LANGUAGE)  FORTRAN  IV 

INPUT/OUTPUT  UNITS 

UNIT  » LFN  use 


OUTPUT  LISTABLE  OUTPUT 

TAPLl  INPUT  UPDATE  'SOURCE*  FILE 

DAYFILE  TOTALS  ARE  PUT  INTO  DAYFILE 

EXECUTION 

FROM  BATCH 

ATTACH, UTILITY, 

ATTACH,TAPE1, .. ..  (UPDATE  'SOURCE*  FILE) 

LD3ET,LI8=UTILITY. 

DECK. 

FROM  TTY 

ATTACH, UTILITY. 

ATrACH,TAPEl,..  ..  (UPDATE  'SOURCE*  FILE) 

LIBRARY, UTILITY. 

DECK, , OUT. 

ROUTE, OUT, DC=PR, ... . 


EXECUTE  C»RO  PARAMETERS 

DECK, INFI LE, OUTPUT, RE H, LIB, PD, IQ. 

INFILE  - INPUT  FILE  (UPDATE  ‘SOURCE*  FILE) 

OUTPUT  - LISTABLE  OUTPUT 
REM  - INFILE  REWIND  OPTION 

A - REMIND  AFTER  USE 

8 - REWIND  BEFORE  USE 

R - REWIND  BEFORE  AND  AFTER  USE 

U - REWIND  BEFORE,  REWIND  AND  UNLOAD 

AFTER  USE 

OTHER  - NO  REMIND  (DEFAULT) 

(ANY  WORDS  BEGINNING  WITH  THESE  LETTERS  HILL 
PRODUCE  THE  SANE  RESULTS) 

LIB  - (FIRST  PART  OF)  PFN 

(IF  OMITTED,  HEADING  ISI  "LFNJ  INFILE") 

PD  - SECOND  PART  OF  PFN 

0 - LIB, DOCUMENTATION 

P - LI3.pl 

OMITTED  - LIB 

OTHER  - LID.PD 

ID  - ID  UNDER  WHICH  LIB. PD  IS  CATALOGED 

(IF  OMITTED,  NO  ID  IN  HEADING) 

DEFAULT  EXECUTE  CARO 

DECK, T APE 1,OUTPUT,NOREW. 

PL  NEEDED  TO  LOAD«  34000B 

FL  NEEDED  TO  RUN  t 21000B 

(PROGPAM  AOUUSTS  CORE  AS  REQUIRED) 

AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1992.2 

date  WRITTEN)  05/04/73 

DaTE(S)  REVISED 
03/07/75 

10/07/75  - CHANGE  TO  RECORD  MANAGER 

(SAVES  ABOUT  30  PCT  CP  TIME) 

01/23/76  - V2.0  - REWRITTEN  TO  CUT  PRINTOUT  IN  HALF 
(SAME  FORM  OUTPUT  AS  ‘OECKLST*) 

02/02/76  > V2,l 

35/04/76  - V2.2  - ADD  OPTIONAL  USER  HEADING 
06/10/76  - V2.3  - ADD  SEARCH  FOR  ’DECK,  AND  *COMOEC<, 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY)  UT I L IT Y PL , ID= C S YS 

OBJECT 

EOITLIB  USER  LIBRARY)  UTILITY 
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program  'OFCKLST* 


PURPOSE 

LIST  JPDATE  'SOURCE*  FILE  DECK/COMOECK  NAMES,  SEQUENCE 
NUMBER,  NUMBER  OF  CAPOS,  NUMBER  OF  LINES  AND  PAGES  (IF 
COLUMN  1 CARRIAGE  CONTROL  IS  USED). 

(LIST  CONTENTS  OF  A DOCUMENTATION  FILE) 

FUNCTIONAL  CATEGORYI  07 

REMARKS 

NUMBER  OF  CAPOS  DOES  NOT  INCLUDE  * 3ECK/*C0M0ECK  CARDS. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

AND  CLOSEM  QATE  FILESQ  GET 

IFETCM  MOO  MOVLEV  OPENM  OR 

RECOVR  REMARK  SHIFT  TIME 

PART  OF  PROGRAM 

EOU  - ABNORMAL  TERMINATION  ROUTINE 

OTHERS 

AOUL  - SQUEEZE  LEFT  (ENGLISH  WORDS) 

CENTER  - CENTER  PHRASE  IN  LINE 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 

LA5TC  - find  last  NON-BLANK  CHARACTER  IN  STRING 

PAKLFT  - SQUEEZE  LEFT  AND  REMOVE  BLANKS  AND  OOB 

SETREW  - OECOOE  REWIND  OPTION 

ARITHMETIC  STATEMENT  FUNCTIONS 

FAST  L-FORMAT  OECOOE  (LEFT-AOU,  ZERO-FILLED) 

LllFMT  L51FMT  L81FMT  L97FMT  L910FMT 

FAST  R-FORMAT  DECODE  (RIGHT-AOU,  ZERO-FILLED) 

R16FMT  R19FMT 

LANGUAGE!  FORTRAN  IV 

INPUT/OUTPUT  UNITS 

UNIT  # LFN  use 


OUTPUT  LISTABLE  OUTPUT 

TAPEl  INPUT  DOCUMENT  FILE 

OAYFILE  totals  ARE  PUT  INTO  DAYFILE 

EXECUTION 

FROM  BATCH 

ATTACH, UTILITY. 

ATTACH, TAPEl,.. ..  (DOCUMENT  FILE) 

LOSET,LIB=UTILIT Y. 

OECKLST. 


FROM  TTY 

ATTACH, UTILITY. 
ATTACH,TAPE1,.... 
LIBRARY, UTILITY. 
OECKLST,, OUT. 

ROUTE, OUT, OC  = PR, ...  . 


(DOCUMENT  FILE) 


L 
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EXECUTE  CAPO  PARAMETERS 

OECKLST,INFILE, 0UTPUT,REW,LIB,PD,I3. 

INFILE  - INPUT  FILE  (DOCUMENT  FILE) 

OUTPUT  - LISTA3LE  OUTPUT 

REW  - INFILE  REMIND  OPTION 

A - REMIND  AFTER  USE 

B - REWIND  BEFORE  USE 

R - remind  before  and  AFTER  USE 

U - REWIND  BEFORE,  REMIND  AND  UNLOAD 

AFTER  USE 

OTHER  - NO  REWIND  (DEFAULT) 

(ANY  WORDS  BESINNIN3  WITH  THESE  LETTERS  MILL 
PRODUCE  THE  SAME  RESULTS) 

LIB  - (FIRST  PART  OF)  PFN 

(IF  OMITTED,  HEADING  ISl  "LFNI  INFILE") 

PD  - SECOND  PART  OF  PFN 

D - LIB.OOCUMENTATION 

P - LI8.pl 

OMITTED  - LIB 

OTHER  - LIB.PO 

ID  - ID  UNDER  WHICH  LIB.PO  IS  CATALOGED 

(IF  OMITTED,  NO  ID  IN  HEADING) 

DEFAULT  EXECUTE  CARO 

DEC KL ST, T APE 1 , OUTPUT, NOREW. 

FL  NEEDED  TO  LOAD!  27000B 

PL  NEEDFO  TO  RUN  t 200006 

AUTHOR 

OAYID  V SOMMER  - OTNSRDC  CODE  1892.2 
DATE  WRITTEN)  02/20/74 
3ATF(S)  REVISED 

11/11/75  - V2.0  - CONVERTED  TO  RECORC  MANAGER  CALLS 
01/21/75  - V2.1 
02/02/76  - V2.2 

05/05/76  - V2.3  - ADD  OPTIONAL  USER  HEADING 
06/10/76  - V2.4  - ADO  SEARCH  FOR  *0ECK,  AND  ’COMCECK, 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY)  UTILITYP^ , IO=CSYS 
OBJECT 

EDITLIB  USER  LIBRARY)  UTILITY 
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PROGRAM  *OEKSORT* 


i 


i 

i 


PURPOSE 

SORT  IDE 

FUNCTIONAL 

REMARKS 

NONE 


NT 

CA 


AND  DECK 
TEOORIESt 


LISTINGS 
QT  Ml 


FROM  UPDATE  OUTPUT 


FILE 


SUBROUTINE  AND  FUNCTION  SUBPROGRA 
PART  OF  language 


AND 

SYSTEM 

EOF 

MOO 

PART  DF  PROGRAM 

FILL 

- 

EXTPA 

CT  IDENT  AND 

HANDLE 

- 

find 

IDENT  AND  OE 

SORTOPT 

- 

CALL 

SOFT  and  PRI 

OTHERS 

GPTLFNS 

- 

GET  A 

CTUAL  LOCAL 

PAKLFT 

- 

SQUEE 

ZE  LEFT  and 

REDUCE 

- 

AOJUS 

T FIELD  LENG 

SSOPTL 

- 

ftn  L 

ogical  shell 

Z3L ANK 

- 

CHANGE  BLANKS  TO 

MS  REQUIRED 

MOVLEV  SHIFT 


DECK  NAMES 
3K  NAMES 
NT  SORTED  DATA 

FILE  NAMES 

REMOi/E  Blanks 

TH 

SORT 

009  AND  VIDE  VERSA 


ARITHMETIC  STATEMENT  FUNCTIONS 

LllFMT  - FAST  L-FORMAT  DECODE  (LEFT-ADJ,  ZERO-FILLED) 
NROWS  - COMPUTE  NUMBER  OF  ROWS  IN  PRINTOUT 


language:  FORTRAN  IV 


INPUT/OUTPUT  UNITS 
UNIT  # LFN 


USE 


1 


TAPEl  INPUT  FILE  (UPDATE  OUTPUT  LISTING  FROM 

0 PARAMETER) 

INPUT  optional  input  FILE  FOR  40-CHAR  TITLE 

OUTPUT  LISTABLE  OUTPUT 


EXECUTION 

from  3at:h 

ATTACM,OLDPL,.. ..  (UPDATE  LIBRARY  TO  BE  LISTED) 

UPDATE, P,C=0,O=ANY. 

begin,utility,,oeksort,any,  . ... 

FROM  TTY 

ATTACH, OLQPL,....  (UPDATE  LIBRARY  TO  BE  LISTED) 

UPDATE, P, C=0 ,0=ANY. 

BEGIN,UTILITV , ,OEKSORT ,ANY,0UT  , . . .. 

ROJTE,DUT ,DC  = PR, . ..  . 


( 
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EXECUFE  3ftR0  PARAMETERS 

OEKSOCT,INFILE,OUTPUT ,OLO,PL,IO,INPUT, 


infile 

OUTPUT 

OLD 


PL 


10 


INPUT 


INPUT  FILE  (UPDATE  LISTING) 

LISTA8LE  OUTPUT 

IF  0,  READ  40-CHARADTER  TITLE  FROM  'INPUT* 
IF  anything  ELSE,  OLD  AND  PL  ARE  PFN  DF 
UPDATE  LIBRARY  BEING  LISTED  (OLD  AND  PL  ARE 
EACH  0-7  CHARACTERS) 

(DEPA'JLTl  OLD) 

SECOND  HALF  OF  PFN  (IF  OLD  NE  0) 

(DEFAULT)  PL) 

ID  UPDATE  LIBRARY  IS  CATALOGED  UNDER 
(IF  OLD  NE  0) 

(IF  OMITTED,  ID  IS  NOT  PUT  INTO  HEADING) 

IF  OLD=0,  THIS  FILE  CONTAINS  UP  TO  1 
CARD  CONTAINING  A 40-CHARACTER  TITLE. 


NOTE)  IF  LFN  is  0,  the  HEADING  WILL 
CHARACTERS  READ  FROM  'INPUT*. 

IF  OLD,  PL,  ID  OMITTED,  HEADING 
*OLOPL  * . 

IF  old,  PL  OMITTED  AND  ID  IS  CXXX, 
CONTAIN  *OLGPL,IO=CXXX*. 

ETC. 


CONTAIN  THE  40 
WILL  CONTAIN 
HEADING  WILL 


DEFAULT  EXECUTE  CARD 

OEKSORT,TAPEl, OUTPUT. 

FL  NEEDED  TO  LOAD)  26000B 

FL  NFEDED  TO  RUN  ) 16000B  ♦ TABLE  SPACE  (ABOUT  1 WORD  PER 

IDENT  AND  DECK  NAME) 

(PROG''AM  ADJUSTS  CORE  AS  REQUIRED) 

AUTHOR 

S.  DERRY  - NSWC,  DAHLGREN,  YA. 

DAVID  V SOMMER  - DTNSRDC  CODE  1892.2 


DATE  WRITTEN)  08/12/75 


SD 


DATE(S)  REVISED 
06/08/76  - OVS 


INPUT  MODIFIED  TO  ALLOW  INFO  IN  EXEC  CARO, 
EXPAND  HEADING,  STREAMLINE  PRINTOUT, 

PUT  LARGE  ARRAY  IN  BLANK  COMMON  (TO  REDUCE 
ABSOLUTE  DECK  SIZE  AND  LOADING  FL)  AND  GET 
CORE  FOR  NAME  TABLE  DYNAMICALLY  TO  REDUCE 
CORE  RFQUIREMENT  AND  ELIMINATE  TABLE 
overflow. 


LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY) 

OBJECT 

FOITLIB  USER  LIBRARY) 


UTILITYPL, IO=CSYS 
UTILITY 
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PROGRttM  'OFOftTIM* 


PURPOSE 

PUT  OftTE/TIME  INTO  OATFILE 

FUNCTIONAL  CATEGORVJ  QO 

LAnGUAGEI  COC  6000  CP  COMPASS 

REMARKS 

NONE 

EXECUTION 

FROM  BATCH 

ATTACH, UTILITY. 

L0SEr,LI3=UTILITr.  OR  LIBRART, UTILITY. 

0F3ATIM. 


FROM  TTY 

OEGIN,UTILITY, ,OFOATIM. 


EXECUTE  CARO  PARAMETERS 
OFOATIM. 


default  execute  card 

OFDATIM. 

FL  NEEaEO  TO  LOAD*  110006 
FL  NEEDED  TO  RUN  t 1000 

OUTPUT  UNITS 

LFN  USE 


OAYFILE  DATE  AND  TIME  MESSAGE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
»ART  OF  language 
NONE 
OTHERS 
NONE 

AUTHOR 

DAVID  V SOMMER  - DTNSROC  CODE  1892.2 


DATE  WRITTEN!  06/20/74  (V2.0) 


OATEIS)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UTIL ITYPL , ID=CS YS 

OBJECT 

E0ITLI8  USER  LIBRARY!  UTILITY 
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PROGRAM  ‘OMPFIL* 


A 


t>U’POSE 

DUMP  FIRST  N HOROS  OF  EACH  LOGICAL  RECORD  IN  M FILES  I 

J 

EUNCTIONAL  CATEGORYI  N2  ! 

AUTHOR 

OAVIO  Y SOMMER  - NSROC  CODE  1992.2 
DATE  WRITTENI  12/01/74 

DATE(S)  REVISED  f 

! 

REMARKS 

OUTPUT  IS  suitable  FOR  TTY.  EACH  WORD  IS  LISTED  ON  ONE  LINE 
IN  ROTH  OCTAL  ANC  CHARACTER  AND  IS  PRECEDED  BY  THE 

LOGICAL  RECORD  NUMBER  (DECIMAL  AND  OCTAL).  PARITY  ‘ 

ERRORS,  IF  ANY,  WILL  BE  FLAGGED.  i 

SUBROUTINE  and  FUNCTION  SUBPROGRAMS  REQUIRED 
PAPT  OF  language 

buffer  in 

LENGTH 
Ml  NO 
RECOVR 
REMARK 
UNIT 
OTHERS 

EOJ  - abnormal  TERMINATION  ROUTINE 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 

IFMTV  - FAST  VARIABLE  I-FORMAT  DECODE 

TNPUT/OUTPUT  UNITS 
FORTRAN  LOCAL 

LOGICAL  FILE 

UNIT  NAME  USE 


1 TAPEl  FILE  TO  BE  DUMPED 

OUTPUT  LISTA3LE  OUTPUT 

EXECUTION 

FROM  BATCH 

ATTACH, UTILITY. 

LIBRARY, UTILITY. 

ATT ACH, TAPEl , . . . (FILE  TO  BE  DUMPED) 

DMPFTL. 

FROM  TTY 

ATTACH, utility. 

LIBRARY, UTILITY  . 

ATTACH, TAPEl,  . . . (FILE  TO  BE  DUMPED) 

CONNECT, OUTPUT. 

OMPFIL. 
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EXFCIJTF  CA^O  PARAMETERS 

OMPFIL, INFILE  ,OUT P J T , NW0R03 , MFI L ES , RE H , 

INFILE  - INPUT  FILE  TO  3E  OUNPED 
OUTPUT  - LISTAPLE  OUTPUT 

NWOROS  - NUMBER  0"  WORDS  OF  EACH  LOGICAL  RECORC  TO  BE 
DUMPED  (DEFAULTI  1 WORD) 

MFILFS  - NUMBER  OF  FILES  OF  A MULTI-FILE  FILE  TO  BF 
PROCESSED  (PROGRAM  WILL  STOP  IF  DOUBLE  EOF 
IS  READ  FIRST)  (DEFAULT!  1 FILE) 

REW  - REWIND  OPTION 

A - rewind  infile  after  use 

B - rewind  infile  before  USE 

R - REWIND  infile  BEFORE  AND  AFTER  USE 

OTHER  - NO  REWIND  (DEFAULT) 

(ANY  WORDS  BEGINNING  WITH  'A*,  »B',  'R* 

WILL  r-RODUCE  THE  SAME  RESULTS) 

DEFAULT  EXECUTE  CARO 

DMPFIL,TAPE1 fOUTPUT ,1 ,1,N0R£W. 

FL  NEEDED  TO  LOAD!  ?5000B 


12/01/74 
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PROGRAM  'DOR' 


V2.4 


"UPPOSF 

PREPARE  (SUR)PPOGRAM  AND  CATALOGUED  PROCEDURE  DOCUMENTATION 
FUNCTIONAL  CATEGORY!  Q6 
LANGUAGE!  FORTRAN  IV  EXTENDED 
PEMARtCS 

IF  ANY  QUESTION  IS  ANSWERED  WITH  A SINGLE  ENTRY  OF  ? , A 

LONG(ER)t  MOPE  DETAILED  DESCRIPTION  OF  THE  CURRENT  ITEM 
IS  TYPED. 

IF  ANY  QUESTION  (EXCEPT  FIRST  FOUR  (4))  IS  ANSWERED  WITH  A 
SINGLE  ENTRY  OF  3 , THE  CURRENT  DOCUMENT  IS  TERMINATED. 

THE  GENEPATFO  DOCUMENT  HAS  CARRIAGE  CONTROL  IN  COLUMN  i; 
SECTION  HEADINGS  BEGIN  IN  COLUMN  lO;  SUB-HEADINGS  BEGIN  IN 
COLUMN  13;  USER-SUPPLIFD  INFORMATION  USUALLY  BEGINS  IN 
COLUMNS  13  OP  16. 

EXECUTION 

FROM  3,ATCH 

NOT  DESIGNED  FOR  BATCH  USE 

FROM  TTY 

CONNECT , OUTPUT 
ATTACH, UTILITY. 

LIBRARY, UTILITY. 

DOC. 

(CREATE  DOCUMENT  IN  FILE  »DOCMNT*) 

EDITOR 

EOIT,DOCMNT,S 

(MODIFY,  IF  NECESSARY.  INDICATE  START  OF  EACH  PAGE 
BY  PUTTING  A *1*  IN  CO.UMN  1 OF  EACH  LINE  WHICH  IS  TO 
BE  THE  FIRST  IINE  OF  A PAGE.) 

SAVE,NEWOOC,N 
LINER, NEWnOC. 

(HILL  COUNT  PAGES  AND  LINER  PER  PAGE.  IF  ANY  PAGE  HAS 
MORE  THAN  59  LINES,  GO  BACK  AND  RESTRUCTURE  THE 
DOCUMENT.) 

BYE 

DOCIT,NEWOOC,FILE. 

(DO  something  WITH  'FILE*  --  PERHAPS  USE  PROCEDURES 
'DOCAOn*  OR  'DOCREPL*  TO  PUT  IT  INTO  A DOCUMENT  FILE) 


EXECUTE  CARO  PARAMETERS 
00C,D0CMNT,0PT. 

DOCMNT  - CREATED  OOCUMENT(S) 

(MAY  BE  CATALOGED) 

OPT  - OPTION 

LONG  - TYPE  LONG  DESCRIPTION  AT  START  OF 
EXECUTION  (DEFAULT) 

Q - DO  NOT  TYPE  LONG  DESCRIPTION 

NEW  - TYPE  DESCRIPTION  OF  NEW  FEATURES 
OTHER  - QUICK  ENTRY  OF  ANSWERS  TO  FIRST  4 


QUESTIONS 
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DEFAULT  EXECUTE  CARO 
DOC, OOCMNT, LONG. 

DEFAULT  PLI  5000  LINES 

FL  NEEDED  TO  LOAOf  46000B 
FL  NEEDED  TO  RUN  I 36000B 

DATA  ENTRIES 

THE  DATA  requested  IS  SUMMARIZED  3ELOM  AND  ON  PAGE  3. 

EACH  ITEM  IS  DISCUSSED  IN  GREATER  DETAIL  STARTING  ON  PAGE  4. 

ITEMS  IN  THE  DOCUMENT  ARE  ENTERED  IN  RESPONSE  TO  QUESTIONS. 
THE  RESPONSES  ARE  ONE  LINE  OR  A VARIABLE  NUMBER  OF  LINES. 

VARIABLE  LENGTH  SECTIONS  HAVE  (I)  IN  THE  PROMPTING  MESSAGE. 
EACH  CONSISTS  OF  0 OR  MORE  LINES  AND  IS  TERMINATED  BY  A 
SEPARATE  ENTRY  OF  I OR  =.  TO  ERASE  THE  PREVIOUS  LINE, 

USE  A SEPARATE  ENTRY  OF  MINUS  (-). 

ALL  (Y/N)  RESPONSESI  Y (OR  ANY  WORD  STARTING  WITH  Y)=YES; 
ANYTHING  ELSE=NO.  IN  THE  DISCUSSIONS  BELOW,  'ENTER  Y*  MEANS 
ENTER  ANY  WORD  BEGINNING  WITH  Y;  'ENTER  N'  MEANS  ENTER  ANY 
WORD  NOT  beginning  WITH  Y.) 

A separate  entry  of  a will  immediately  terminate  the 

CURRENT  document. 

A SEPARATE  ENTRY  OF  ? HILL  “ROVIDE  A LONG(ER)  FORM  OF  THE 
CURRENT  PROMPTING  MESSAGE. 

A SEPARATE  ENTRY  OF  -L  HILL  SWITCH  TO  LONG  PROMPTING  UNTIL 
END  OF  PROGRAM  OR  -S. 

A SEPARATE  ENTRY  OF  -3  HILL  SWITCH  TO  SHORT  PROMPTING 
UNTIL  END  OF  PROGRAM  OR  -L. 

A SEPARATE  ENTRY  OF  -ON  HILL  TURN  REPRINT  ON  (PRINT  WHAT 
YOU  JUST  ENTERED)  UNTIL  END  0“^  PROGRAM  OR  -OFF. 

A SEPARATE  ENTRY  OF  -OFF  WILL  TURN  REPRINT  OFF  UNTI.  END 
OF  PROGRAM  OR  -ON. 

MOST  MESSAGES  MILL  HAVE  (IN  PARENTHESES)  THE  NUMBER  CF 
CHARACTERS  ACCEPTED  PER  LINE. 

THE  Following  are  asked  at  most  once  per  execution) 

•DECK 

underline 

reprint  - MAY  BE  CHANGED  DYNAMICALLY 

PROMPT  - MAY  BE  CHANGED  DYNAMICALLY 

THESE  4 ►'AY  BE  ENTERED  AS  A SINGLE  PARAMETER  ON  THE  EXECUTE 
CARD  (DEFAULT-  N2NS) . 

the  FOLLOWING  IS  ASKED  ONCE  PER  OOCJMENTI 
MAIN/SUBROUTINE /FUNCTION /PROCEDURE/ END 

THE  REST  DEPEND  UPON  THE  RESPONSE  To  M/MC/S/F/P/E  AND  ARE 
SUMMARIZED  IN  THE  TABLE  ON  PAGE 
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MAIN 

FORTRAN. 


PROGRAM 
:030L .OTHER 


:oy/ER 

X I 
X I 
X I 
I 


SU3RO'JTINE/FUNCTION 
fortran. 3030L. OTHER  PROCED 


name 

SUPPOSE 

FONC  CATEGORIES 
language 


X 

X 

X 

X 


X I 
X I 
X I 
X I 


X 

X 

X 

X 


X I 
X I 
X I 
X I 


X 

X 

X 


PROCFO  LOCATION 

REMARKS 

USAGE 

BFGIN  STATEMENT 


I 

X I 
X I 
I 


• APGS 

PESCRIPTION 
DEFAULT  3EGIN 
MAX  FL 


REMARKS 
CM  REQUIRED 
9ATCH  CTL  COS 
tty  CTL  CRDS 


I 

I 

X I 
X I 


execute  card 
default  exec  CD 

DEFAULT  PL 
LOAD  FL 


X I 
X I 
I 

X I 


RUN  FL 
REDUCTION 
9 DATA  CAROS 
SUQ-HEAOING 


X 

X 

X 

X 


X I 
X I 
X I 
X I 


I 

I 

X I 
X I 


DESCRIPTION 
MORE  SU3-HEAO 
EPPORS 
I/O  UNITS 


X 

X 

X 

X 


X I 
X I 
X I 
X I 


X I 
X I 
I 

X I 


DESCRIPTION 
• EXAMPLES 

example (S» 

MFTHOD 


X I 
X I 
X I 
X I 


X 

X 

X 

X 


X I 
X I 
X I 
X I 


SUPPROGRA  MS 
PART  OF  LANG 
PART  OF  PROG 
OTHERS 


I 

X I 
X I 
X I 


I 

X I 
X I 
X I 


ARITH  STMT  FCNS 

# authors 

AUTHOR(S) 

DATE  WRITTEN 


X 

X 

X 

X 


X 

X 

X 


I 

X I 
X I 
X I 


I 

X I 
X I 
X I 


X 

X 

X 


OATES  REVISED 
SOURCE  LOCATION 
OBJECT  location 
ANY  MORE? 


X 

X 

X 

X 


X 

X 

X 

X 
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THF  Fallowing  fojr  itfms  cre  requested  at  most  omce  per  execjtioni 

*OFCK  A RESPONSE  OF  ‘i • WILL  CAUSE  AN  UPDATE  *OECK  CARO  T3  BE 

GFNERATEO  before  each  document  CREATED  DURING  THIS 
EXECUTION. 

ANY  OTHER  RESPONSE  WILL  NOT  GENERATE  ’DECK  CAROS. 

IF  THE  DOCUMENTS  GENERATED  ARE  TO  8E  PROCESSED  BY 
CATALOGUPQ  PROCEDURES  'OOCAOD*  OR  'DOCREPL',  RESPOND  'N'. 

UNDERLINE  SOME  SECTIONS  WILL  HA»/E  SUB-HEADINGS  WHICH  WILL  BE 

UNDEPLINFD.  THERE  ARE  TWO  POSSIBLE  UNDERLINE  CHARACTERS. 


I ENTER  1 FOR  UNOEPSCORE  (.1,  WHICH  WILL  BE  PRINTED  ON  THE 

I SAME  LINF  AS  THE  SUB-HEADING  (CARRIAGE  CONTROL*  ♦) . 

; (SEE  PAGE  11  FOR  A SAMPLE.) 

f ENTER  2 FDR  HYPHFN  ( -) , WHICH  WILL  BE  PRINTED  ON  THE 

LINE  AFTER  THF  SUB-HFAQING  (CARRIAGE  CONTROL*  SPACE). 

(SEE  PAGE  ft  FOR  A SAM'>LE,) 

j RFPRINT  A RESPONSF  OF  'Y*  WILL  CAUSE  EACH  OF  THE  ENTRIES  TO  BE 

I TYOED  PACK.  THERE  IS  LIMITED  PROtfISION  FOR  CORRECTION  IN 

MULTIPLE  LINE  ENTRIES. 

ANY  OTHER  RESPONSE  WILL  CAUSE  NO  REPRINT. 

TO  TURN  REPRINT  ON  AT  ANY  TIME  DURING  DOCUMENT  GENERATION, 

! USE  A SEPARATE  ENTRY  DF  »-ON*;  TO  TURN  REPRINT  OFF,  ENTER 

•-off*. 

PROMPT  THERE  ARE  TWO  VERSIONS  OF  E4CH  PROMPTING  MESSAGE. 

ENTER  L TO  RECEIVE  THE  LONG  FORM. 

FNTER  S to  receive  THE  SHORT  FORM. 

TO  SWITCH  TO  LONG  FORM  AT  ANY  TIME  DURING  DOCUMENT 
GENERATION,  USE  A SEPARATE  ENTRY  OF  '-L'l  TO  SWITCH  TO 
SHORT  FORM,  ENTER  '-S'. 

These  oufstions  may  be  answered  on  the  execute  card  to  save  time. 

THF  FOLLOWING  ITEM  IS  REQUESTED  ONCE  PER  DOCUMENT* 

MA iN/CnVF  >ySUHROJTIME/FUNCT lON/PROCEOURE/ENO 

THE  RESPONSE  TO  THIS  DETERMINES  WHICH  OF  THE  REMAINING 
QUESTIONS  WILL  3E  ASKED. 

FNTFR  M TO  DOCUMENT  A MAIN  PROGRAM. 

ENTER  MC  TO  CREATE  A MAIN  PROGRAM  COVER  SHEET. 

PNTFR  S TO  COCUMENT  A SUBROUTINE. 

ENTER  F TO  OOCUMENT  A FUNCTION. 

ENTER  SF  TO  DOCUMENT  A SUBPROGRAM  WHICH  MAY  BE  USED  AS  A 

subroutine  or  function,  rwo  headings  will  be 

GFNERATEO. 

ENTER  FS  FOR  THE  SAME  AS  SF  BUT  WITH  THE  FUNCTION 
HEADING  first. 

ENTER  P TO  COCUMENT  A CATALOGUED  PROCEDURE. 
enter  E to  FNO  the  PROGRAM. 
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THF  R^MaiNlNG  QUESTIONS  DEPEND  UPON  THE  RESPONSE  TO  THE  LAST 


QUESTION. 

N 

MC 

M(F) 

H{C) 

M(0) 

SF 

SF(F) 

SF(C) 

SF(0> 

p 

NAME 


THE  FOILOWING  ABBREVIATIONS  WILL  BE  USEDI 
■ MaiN  PROGOAM,  ANT  LANGUAGE 
PROGRAM  COVER  SHEFT 
program,  FORTRAN 
COBOL 

NOT  fortran  OR  COBOL 
FUNCTION,  any  .ANGUAGE 
FUNCTION, 

FUNCTION, 

FUNCTION, 


MAIN 
MA  IN 
MAIN 
MAIN 


PROGRAM, 
PROGRAM, 
OR 


SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

CATALOGUED 


OR 

OR 

OR 


FORTRAN 

COBOL 

NOT  fortran 


OR  COBOL 


PROCEDURE 


PURPOSE 


functional 


language 


1-7  character  program  or  subprogram  name  -or- 

1-10  CHARACTER  PROCEDURE  NAME.  (M,MC,SF,P) 

NOTE«  WHILE  PROCEDURE  NAMES  MAY  BE  10  CHARACTERS,  UPDATE 
IS  LIMITED  TO  9-CHARACTEP  DECK  NAMES  AND  PROCEDURES 
FOR  MAINTAINING  DOCUMENT  FILES  ARE  LIMITED  TO 
7-CHARACTER  DECK  NAMES. 

ANY  NUMBER  OF  1-  TO  BO-CHARACTER  LINES  DESCRIBING  THE 
PURPOSE  OF  THE  ROUTINE.  END  WITH  A SEPARATE  ENTRY  DF  I 
OR  =.  (M,MC,SF,P) 

:ategorifs 

SPECIFY  1-10  2-CHARACTER  FUNCTIONAL  CATEGORIES  TO  WHICH 
THIS  ROUTINE  BELONGS.  A LIST  OF  CATEGORIES  MAY  BE 
obtained  by  EXECUTING  THE  FOLLOWING  COMMANDJ 
3EGIN,UTILITY, , PROG  DOC, OTHER,,F UNCAT. 

THF  list  IS  3 PAGES  LONG. 

(3-CHAPACTER  CATEGORIES  WILL  BE  SUPPORTED  IN  V2.5) 
(M,MC,SF,P) 

1-50  CHARACTERS  NAMING  OR  DESCRIBING  THE  LANGUAGE  THE 
ROUTINE  IS  WRITTEN  IN.  (M,SF) 

THE  FOLLOWING  ABBREVIATIONS  ARE  RECOGNIZEOl 


A 

B 

C 

C4 

C5 


ALGOL 

BASIC 

COBOL 

COBOL 

COBOL 


(ALSO  COB) 


COM 

- CDC  6000 

CP  COMPASS 

F 

- FORTRAN 

-k 

- fortran 

IV 

FTN 

- FORTRAN 

IV  EXTENDED 

F5 

- FORTRAN 

77 

FTN5 

- FORTRAN 

77  EXTENDED 

PROCEDURE 


MNF  - MINNESOTA  FORTRAN 

P - PL/I  (ALSO  PLI,  PLl,  PL/1) 

RATFOR  - RATIONAL  FORTRAN  (ALSO  RF) 

S - SNOBOL 

LOCATION 

SPECIFY  THE  LOCATION  DF  THE  CATALOGUED  PROCEDURE 
DOCUMENTED  (PROGRAM  AND  SUBPROGRAM  LOCATIONS  ARE 
LATER).  GIVE  FITHFR  THE  PERMANENT  FILE  NAME  AND 


BEING 
REQUESTED 
ID  OR  A 


sample 

LINES. 


ATTaCH.  USE  aNY  NUMBER  OF  1-  TO  60-CHARACTER 


T"/lD/77 
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REMARKS  ENTER  ANY  REMARKS  ABOUT  THE  ( SUB) PROSRAM . USE  ANT  NUMBER 

OF  1-  TO  60-CHARACTER  LINES.  ENO  WITH  A SEPARATE  ENTRY  OF 
« OR  =.  (M,SF) 

(REMARKS  FOR  MAIN  PR03RAM  COYER  SHEET  ARE  GENERATED 
AUTOMATICALLY) 

(REMARKS  FOR  PROCEDURES  ARE  REQUESTED  LATER.) 


USAGE 


ENTER  call  STATEMENT(S)  OR  FUNCTION  USAGE  WITH  ALL 
ARGUMENTS  SHOWN.  GIYE  ALL  POSSIBLE  WAYS  THE  SUBPROGRAM 
CAN  RE  USED.  USE  ANY  NUMBER  OF  1-  TO  60-CHARACTER  LINES. 
END  WITH  A SEPARATE  ENTRY  OF  I OR  =.  DO  NOT  DESCRIBE  THE 
ARGUMENTS  HERE.  THE  NEXT  PROMPTING  WILL  BE  FOR  ARGUMENT 
DESCRIPTION.  (SF) 


BEGIN  STATEMENT 

ENTER  THE  BEGIN  STATEMENT  SHOWING  ALL  PARAMETERS.  TRY  TO 
USE  THE  NAMES  IN  THE  PROCEDURE  HEADER,  IF  POSSIBLE.  USE 
ANY  NUMBER  OF  1-  TO  60-CHARACTER  LINES.  END  WITH  A 
SEPARATE  ENTRY  OF  I OR  =.  DO  NOT  DESCRIBE  THE  PARAMETERS 
HERE.  THE  NEXT  PROMPTING  WILL  BE  FOR  PARAMETER 
DESCRIPTION.  (P) 

NUMBER  OF  ARGUMENTS/PARAMETERS 


FNTER 

0 

IF 

THE 

ROUTINE 

HAS 

NO 

PARAME 

TERS. 

ENTER 

1 

IF 

THE 

ROUTINE 

HAS 

1 

PARAMET 

ERS. 

ENTER 

(SF,P) 

2 

IF 

THE 

ROUTINE 

HAS 

2 

OR  MORE 

PARAMETERS. 

DESCRIPTION  OF  ARGUMENTS/PARAMETERS 

REQUESTED  ONLY  IF  RESPONSE  TO  LAST  QUESTION  WAS  1 OR  2. 
DESCRIBE  THE  ARGUMENT(S)  OF  THE  CALL  OR  FUNCTION  USAGE  OR 
BEGIN  STATEMENT  PARAMETERS.  USE  ANY  NUMBER  OF  1-  TO  60- 
CHARACTEO  LINES.  END  WITH  A SEPARATE  ENTRY  OF  I OR  =. 
(SF,P) 


DEFAULT  BEGIN 


ENTER  THE  BEGIN  STATEMENT  SHOWING  ALL  DEFAULT  VALUES.  USE 
ANY  NUMBER  OF  1-  TO  60-CHARACTER  LINES.  END  WITH  A 
SEPARATE  ENTRY  OF  t OR  =.  (P) 


MAX  FL 


FIELD  LENGTH  REQUIRED  FOR  THE  LARGEST  PROGRAM  EXECUTED  IN 
THE  PROCEDURE.  (P) 

(FL  FOR  PROGRAMS  AND  SUBPROGRAMS  IS  REQUESTED  LATER.) 


REMARKS  ENTER  ANY  REMARKS  ABOUT  THE  PROCEDURE.  USE  ANY  NUMBER  0*^ 

1-  TO  60-CHARACTER  LINES.  END  WITH  A SEPARATE  ENTRY  OF  t 
OR  =.  (P) 

(REMARKS  FOR  (SUB) PROGRAMS  ARE  REQUESTED  EARLIER.) 

CM  REQUIRED  ENTER  THE  CORF  REQUIRED  FOR  THIS  SUBPROGRAM  (1-40 

CHARACTERS).  THIS  MAY  BE  OBTAINED  FROM  THE  COMPILATION 
LISTING.  (SF) 


DOC 
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batch  cont»?ol  ca^ds 

LIST  THP  CONTROL  CARDS  AND  SHOW  THE  POSITIONING  OF  ANY 
DATA  CAROS.  DON'T  SHOW  JOB  OR  CHARGE  CAROS  UNLESS  THE  JOB 
CARO  HAS  SOME  SPECIAL  REQUIRED  PARAHETERS  (MT,  NT,  PK,  T, 
BUT  NOT  CM).  USE  ANY  NUMBER  OF  1-  TO  57-CHARACTER  .INES. 

IF  THE  PROGRAM  IS  MOT  DESIGNED  FOR  BATCH  USE,  THIS  MESSAGE 
(SEE  PAGE  2)  CAN  BE  GENERATED  AUTOMATICALLY  WITH  A SINGLE 
ENTRY  OF  Q (ZERO) . 

TN  EITHER  CASE,  END  WITH  A SEPARATE  ENTRY  OF  » OR  =.  (M) 

TTY  control  CAROS 

LIST  THE  CONTROL  CARDS  AND  SHOW  THE  POSITIONING  0^  ANY  TTY 
DATA  ENTRIES  (SEE  PAGE  2).  USE  ANY  NUMBER  OF  1-  TO  57- 
CHARACTER  LINES. 

IF  THE  PROGRAM  IS  NOT  DESIGNED  FOR  TTY  USE,  THIS  MESSAGE 
CAN  BE  GENERATED  AUTOMATICALLY  WITH  A SINGLE  ENTRY  OF  0 
( ZERO) . 

IN  EITHER  CASE,  END  WITH  A SEPARATE  ENTRY  OF  I OR  =.  (M) 

EXFCUTE  CARO  GI\/E  THE  EXECUTE  CARO  SHOWING  ANY  PARAMETERS.  THEN  LIST 
and  DESCRIBE  EACH  PARAMETER  (SUGGEST  STARTING  THE 
DESCRIPTIONS  WITH  3 SPACES  (SEE  PAGE  2)).  USE  ANY  NUMBER 
OF  1-  TO  57-CHARACTER  LINES.  END  WITH  A SEPARATE  ENTRY  OF 
« OR  =.  (M,MC) 

DEFAULT  FXECUTE  CARO 

GIVE  THE  EXECUTE  CARO  SHOWING  ALL  DEFAULT  VALUFS.  JSE  ANY 
NUMBER  OF  1-  TO  57-CHARACTER  LINES.  END  WITH  A SEPARATE 
ENTRY  OF  j OR  =.  (M,MC) 

OEFAULT  PL  ENTER  PRINT  LIMIT  (PL)  AS  SPECIFIED  ON  FTN  CONTROL  CARD. 

IF  NOT  SPECIFIED,  ENTER  SPACE,  0,  I OR  =.  (M(F)) 

LOAD  FL  FNTEP  THE  FIELD  LENGTH  NEEDED  TO  LOAD  THE  PROGRAM  (l-<*0 

CHARACTERS).  (M) 


RUN  FL 


ENTER  THE  FIELD  LENGTH  NEEOEO  TO  RUN  THE  PROGRAM  (1-40 
CHARACTERS).  (M) 


REDUCTION  FNTER  SPACE,  t OR  = IF  THE  PROGRAM  DOES  NOT  SPECIFICALLY 

ADJUST  CORE  BUT  USES  THE  CORE 
determined  by  the  LOADER. 

t^NTFR  0 IF  THF  PROGRAM  SPECIFICALLY  RFOUCES  TO  THE  MINIMUM 
NEFOED  TO  RUN. 

FNTER  1 IF  THF  PROGRAM  SPECIFICALLY  ADJUSTS  CORE  UP  AND/OR 
OOWN  AS  PROGRAM  REQUIREMENTS  CHANGE. 

IF  THE  Program  requests  a specific  amount  of  core,  enter 
THAT  amount.  (M) 


NUMBFR  OF  DATA  CAROS 

ENTER  0 IE  NO  DATA  CARDS. 

Enter  i eqr  the  heading  'data  card*. 

ENTEO  2 FOP  THE  HEADING  'DATA  CAROS'. 
(M,SE,P) 
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TfiTA  CA^D  SUB-HFAOING 

rNrE?  0 IE  NO  SJB-HFAOING  IS  OESI-^EO. 

ENTER  1 FOR  THE  SUB-HEADING  *COL  SONTENTS*. 

ENTER  2 FOK  THE  SUB-HEADING  'CARO  COL  CONTENTS'. 

(M,SF,P) 

DATA  card  description 

OFSCRIBE  THE  DATA  CAROS.  USE  ANY  NUMBER  OF  1-  TO  6Q- 
CHARACTER  LINES  (IF  NO  SUB-HEADING)  OR  1-  TO  ST-CHARACTER 
LINES  (IF  SUB-HEADING).  END  WITH  A SEPARATE  ENTRY  OF  I OR 
=.  (M,SF,P) 

DO  YOU  WANT  another  SUB-HEADING? 

ASKED  ONLY  IF  SUB-HEADINGS  WERE  SPECIFIED. 

ENTER  Y FOR  ANOTHER  SUB-HEADING. 

ENTER  N TO  CONTINUE  THE  DOCUMENT. 

ERPO”  MESSAGES 

LIST  ERROR  MESSAGES  THE  PROGRAM  CAN  PRODUCE  WITH  AN 
explanation  of  each  (SUGGEST  STARTING  EXPLANATION  WITH  3 
SPACES  (SEE  PAGE  10)).  USE  ANY  NUMBER  OF  1-  TO 
BO-CHARACTER  LINES.  END  WITH  A SEPARATE  ENTRY  OF  « OR  =. 
IF  NO  ENTRIES  ARE  GIl/EN,  THE  SECTION  WILL  NOT  APPEAR  IN 
THE  GENERATED  DOCUMENT.  (M,P) 

INPUT/nUTPUT  UNITS 

enter  SPACEf  I OR  = IF  NO 
ENTER  I FOR  THE  HEADING 
ENTER  0 FOR  THE  HEADING 
ENTER  ID  FOR  THE  HEADING 
ENTER  I/O  FOK  2 HEAOINGSt 

(M,5F) 

DESCPIPTION  OP  T/0  UNITS 

PEDJESTEO  ONLY  IF  THE  RESPONSE  TO  THE  LAST  QUESTION  WAS  I, 
0,  10  OR  I/O.  SUB-HEADINGS  ARE  TYPED  TO  AID  IN  FORMATTING 
DFSCRIPTIONS. 

FOR  FORTRAN,  3 COLUMNS  ARE  USED*  FORTRAN  LOGICAL  UNIT 
NUMBER,  LOCAL  FILE  NAME  AND  USE.  FOR  EXAMPLE,  FOR  THE 
program  STATEMENT! 

program  any  (INPUT,  TAPE/,  OUTPUT,  TAPE5=INPUT) 

UNIT  # LFN  USE 


5 INPUT  DATA  CARD  INPUT 

OUTPUT  LISTABLE  OUTPUT 
7 TAPE?  WORK  FILE 

LIST  files  in  ALPHABETICAL  ORDER  BY  LFN.  BE  SURE  TO 
INCLUDE  ALL  RECORD  MANAGER  FILES  WHICH  ARE  NOT  ALSO  IN  THE 
PROGRAM  STATEMENT. 

FOR  non-fortran,  ONLY  THE  LAST  2 COLUMNS  ARE  USED. 

(M,SF) 


I/O  UNITS. 

'INPUT  UNITS*. 

'OUTPUT  UNITS'. 

'INPUT/OUTPUT  UNITS'. 

'INPUT  UNITS'  ANO  'OUTPUT  UNITS' 
(EACH  WILL  BE  PROMPTED  FOR 
SEPARATELY.) 
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NUMBER  OF 

EXAMPLES 

ENTER 

0 

IF  NO  EXAMPL 

ES. 

A 

ENTER 

1 

IE  1 example 

(HEADING  WILL 

BE  'EXAMPLE'). 

ENTER 

2 

IF  2 OP  MORE 
•examples*) . 

EXAMPLES  (HEA 

DING  WILL 

BE 

(M,SF 

,P) 

FX AMPLFS 

GIVE 

THE 

EXAMPLE (S) . 

USE  ANY  NUMBER 

OF  1-  TO 

60-CHARA 

LINES 

. E 

NP  WITH  A SEP 

ARATE  ENTRY  OF 

1 OR  =. 

(M,SF,P 

MFTHO'D  IF  leSIREO,  OESCRieE  THE  METHOO  USEO.  IF  APPROPRIATE, 

CITE  REFERENCES.  USE  ANY  NJM0ER  OF  1-  TO  60-CHARACTER 
LINES.  END  WITH  A SEPARATE  ENTRY  OF  I OR  =.  IF  NO 
DESCRIPTION  IS  SIWEN,  THE  SECTION  WILL  NOT  APPEAR  IN  THE 
generated  DOCUMENT.  (M,SF) 

SUGPROGPAMS  REQUIRED  (PART  OF  LANGJAGE) 

LIST  ALL  SUBROUTINES  AND  FUNCTIONS  USED  BY  THIS  ROUTINE 
WHICH  ARE  A PART  OF  THE  LANGUAGE  (SUCH  AS  SIN,  COS,  EOF, 
DUFFEROUT,  CONNED,  ETC.).  USE  ANY  NUMBER  OF  1-  TO  A7- 
CHARACTER  LINES.  FIVE  NAMES  WILL  FIT  ON  A LINE  IN  10- 
CHARACTEP  fields.  THEY  SHOULD  BE  LISTED  ALPHABETICALLY  OR 
GROUPED  ACCOPOING  TO  TYPE  (EG.  LOGICAL  FUNCTIONS,  TRIG 
FUNCTIONS,  NON-STANDARD  I/O  ROUTINES,  ETC.).  END  WITH  A 
SEPARATE  ENTRY  OF  « OR  =.  (M,SF) 

SUPPROGRAHS  required  (PART  OF  PROGRAM) 

LIST  AND  DESCRIBE  ALL  SUBROUTINES  AND  FUNCTIONS  WHICH  WERE 
WRITTEN  SPECIFICALLY  FOR  THIS  PROGRAM  OR  SUBPROGRAM.  USE 
ANY  NUMBER  OF  1-  TO  57-CHARACTER  LINES.  END  WITH  A 
SEPARATE  ENTRY  0^  J OR  =.  ( M ( F ) , M ( 0)  , 3F ( F ) , SE ( 0) ) 


SUBPPOGRAHS  REQUIRED  (OTHERS) 

LIST  ALL  SUBPROGRAMS  USED  (SUCH  AS  THOSE  IN  USER  LIBRARIES 
OR  other  FILES)  WHICH  ARE  NOT  LISTED  ABOVE.  USE  ANY 
NUMBER  OF  1-  TO  57-CHARACTER  LINES.  END  WITH  A SEPARATE 
ENTRY  OF  I QR  =.  (M,SF) 


ARITHMETIC 

STATEMENT 

FUNCTIONS 

LIST  AND 

DESCRIBE 

ALL 

ARITHMET 

IC  STATEMENT  FUNCTIONS  USEO. 

USE  ANY 

NUMBER 

OF 

1-  T 

0 60-CHA 

RACIER  LINES.  END 

WITH  A 

SEPARATE 

ENTRY 

OF 

t OR 

= . (M( 

F) ,SF(F) ) 

NUMBER  OF 

AUTHORS 

ENTER  1 

IF  1 

AU 

THOR 

(HEADING 

WILL  BE  'AUTHOR') 

• 

ENTER  2 

(M,SF,P) 

IF  2 

OR 

MORE 

AUTHORS 

(HEADING  WILL  BE 

•AUTHORS') 

AUTHORS 

LIST  ALL 

AUTHORS 

WITH 

company 

AND/OR  CODE.  USE 

ANY  NUMBER 

OF  1-  TO 

bO-CH ARA 

CTER 

LINES. 

END  WITH  A SEPARATE  ENTRY  OF 

1 OR  =. 

(M,SF 

,P) 

OF /10/77 
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OftTE  WRITTEN  ENTER  THE  DATE  WRITTEN  (1-50  CHARACTERS).  ((1,SF,P) 

OATES  REVISED 

ENTER  THE  OATES  FEVISFO,  WITH  PERHAPS  A DESCRIPTION  OE  THE 
REVISION,  PROGRAM  REVISION  NUMBER,  ETC.  USE  ANY  NUMBER  OE 
1-  TO  60-CHARACTER  LINES.  END  WITH  A SEPARATE  ENTRY  OE  I 
OR  =.  (M,SF,P) 

SOURCE  DECK  LOCATION 

LIST  ALL  PLACES  THE  SOURCE  PROGRAM  IS  LOCATED.  USE  ANY 
NUMBER  OP  1-  TO  57-CHARACTER,  LINES.  END  WITH  A SEPARATE 
ENTRY  0*^  I OR  =.  (M,SE) 

OBJECT  DECK  LOCATION 

LIST  ALL  PLACES  THE  OBJECT  PROGRAM  IS  LOCATED.  USE  ANY 
NUMBER  OF  1-  TO  57-CHARACTER  LINES.  END  WITH  A SEPARATE 
ENTRY  OF  t OR  =.  (M,SF) 

00  YOU  WANT  TO  DOCUMENT  ANOTHER  ROUTINE? 

ENTER  Y TO  DOCUMENT  ANOTHER  ROUTINE. 

ENTER  N TO  END  THE  PROGRAM. 

IT  IS  SUGGESTED  THAT  ONLY  ONE  DOCUMENT  BE  GENERATED  AT  A 
TIME. 

(M,SE,P) 
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ERROR  MESSAGES 

QOCUMENT  TERMINATED  - OOCNANE 

TTT  MESSAGE  WHEN  USER  ENTERS  3 TO  TERMINATE  THE  CURRENT 
DOCUMENT 

IGNORED  - NO  PREVIOUS  LINE  TO  DELETE 

USER  ENTERED  IN  MULTIPLE  LINE  SECTION  THAT  IS 

CURPENTI.Y  EMPTY  (REPRINT  MODE  ONLY) 

LAST  LINE  DELETED 

USER  ENTERED  •-»  IN  MULTIPLE  LINE  SECTION  (REPRINT  MODE 
ONLY) 

SORRY.  I MUST  HAVE  A PROCEDURE  NAME  BEFORE  I CAN  CONTINUE. 

self-explanatory 

SORRY.  I MUST  HAVE  A ROUTINE  NAME  BEFORE  I CAN  CONTINUE. 
self-explanatory 

THIS  DOCUMENT  TERMINATED  EARLY  ***** 

PUT  INTO  DOCUMENT  WHEN  USER  ENTERS  3 TO  TERMINATE  THE 
CURRENT  DOCUMENT 
...  TRUNCATED 

END  OE  A TOO-LONG  ENTRY  DROPPED.  IE  IN  A MULTIPLE  LINE 
SECTION,  USER  MAY  ENTER  *-*  AND  RETYPE  THE  LINE  OR  WAIT 
AND  CORRECT  IT  LATER  IN  EDITOR. 


INPUT/OUTPUT  UNITS 

-_LEU_-  - USE 

4 OOCMNT  CREATEO  DOCUMENTS  (ON  PF  SPACE) 

OUTPUT  FTN  ERROR  MESSAGES 

5 TTY  TER‘«INAL  INPUT/OUTPUT 


METHOD 

TTY  IS  prompted  FOR  EACH  SECTION  OF  THE  DOCUMENT. 

THE  SECTIONS  REQUESTED  ARE  DETERMINED  3Y  THE  SOURCE 
LANGUAGE  AND  TYPF  OE  ROUTINE. 


I*!  /I  0/77 
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SUBROtJTiNF  ftNO  ^UNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 

AND  CONNED  DATE  EOF  lABS 

MOV/LFV  RECOVP  REMARK  SHIFT 

PART  OF  PROGRAM 

AA30VER  - DRIVER  FOR  MAIN  PROGRAM  COVER  SHEET 

AAOROC  - DRIVER  FOR  PROCEDURES 

AAPROG  - DRIVER  FOR  (SUB) PROGRAMS 

ANTMOR  - ASK  IF  ANY  MORE  DOCUMENTS  TO  BE  CREATED 

ARITH  - ASK  FOR  AvITHMETIC  STATEMENT  FUNCTIONS 

AUTHOR  - ASK  FOR  AUTHORS 

CATGORY  - ASK  FOR  FUNCTIONAL  C A TE GOR Y ( I ES ) 

CATPRO  - GET  PROCEDURE  NAME 
DATA  - ASK  FOR  DATA  CARD  DESCRIPTION 
OECKl  - ASK  IF  ♦DECK  CARDS  DESIRED 
OFFPL  - ASK  FOR  DEFAULT  PL 

OOCIT  - EXTEND  MAIN  PROGRAM  COVER  SHEET  TO  60  LINES 
ECHOl  - ASK  IF  ECHO  DESIRED 
ENDIT  - CLOSE  PROGRAM  AND  PRINT  SUMMARY 
EOJ  - ABNORMAL  TERMINATION  ROUTINE 

ERRORS  - ASK  FOR  ERROR  MESSAGES 
exam  - ASK  FOR  PROCEDURE  EXAMPLES 
FXEC  - ASK  FOR  EXECUTION  INSTRUCTIONS 
EXECl  - ASK  EOR  CM  REQUIRED  FOR  SUBPROGRAM 
(ENTRY  IN  EXEC) 

FXEC2  - ASK  EOR  PROCEDURE  MAX  EL 
(ENTRY  IN  EXEC) 

EA3TOPT  - PROCESS  EXECUTE  CARO  OPTION 

GET13  - GET  VARIABLE  LENGTH  INFO  AND  PRINT  IN  COL  IT 

GETlF  - GET  VARIABLE  LENGTH  INFO  AND  “RINT  IN  COL  16 

(ENTRY  IN  GET13) 

ITOO  - ASK  FOR  INPUT/OUToJT  DESCRIPTION 
LANGl  - ASK  FOR  SOURCE  LANGUAGE 

LOC  - ASK  FOR  PROCEDURE  .OCATIDN 

METH  - ASK  FOR  METHOD  DESCRIPTION 

OBJ  - ASK  EOR  LOCATION  OF  SOUPCEXOB DECT  DECKS 

ONOEESL  - dynamic  REPRINT  ON/OEP,  SHORT/LONG  PROMPT 
PARAM  - ASK  EOR  SUBPROGRAM  PARAMETERS 
PRMPT  - ASK  IF  LONG/SHORT  PROMPTING  DESIRED 
PRDOEF  - ASK  EOP  DEFAULT  BEGIN  STATEMENT 
PROG  - ASK  FOP  ROUTINE  NAME 

PURP  - ASK  FOR  PURPOSE 

REM  - ASK  EOR  REMARKS 

SUBS  - ASK  FOR  SUBPROGRAMS  REQUIRED 

TRUNC  - PRINT  TPUNCATEO  MESSAGE 
UNDFPI  - ask  which  underline  character  DESIRED 
USAGE  - ASK  EOR  SUBPROGRAM  USAGE  INFO 
WRIT  - ASK  FOR  OATES  WRITTEN  ANB  REVISED 
OTHERS 

ABJL  - SQUEEZE  LEFT  (SPACE  BETWEEN  WORDS) 

ELTIMF  - ELAPSED  TIME  COMMUTATIONS 
FINOWRD  - SEARCH  ARRAY  FOR  HORO 
FSETFIT  - 3FT  FTN  FIT 

GETLFMS  - GET  actual  LOCAL  FILE  NAMES 

PAKLFT  - SQUEEZE  LEFT  AND  REMOVE  BLANKS  AND  QOB 

PEDUEST  - RFQUE.ST.'^OCMNT  ,*mf. 

ZBLANK  - change  planks  to  301 
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a=?,lTHMETrC  STfiTFMENT  FUNCTIONS 
IllFMT  - FAST  I'FORMAT  DECODE 

LblF-^T  - FAST  L-FORMAT  DECODE  (LEFT-A3J,  ZERO-FILLED) 

L81FMT  - FAST  L-FORMAT  DECODE  (LEFT-ADJ,  ZERO-FILLED) 

AUTHOR 

DAVID  V SOHHFR  - DTNSRDC  CODE  1892.2 

DATE  WRITTEN)  11/03/ZT 

DATEtS)  REVISED 
11/19/Z3  - VI. 1 
OS/Zfi/ZS  - VI. 2 
12/01/75  - VI. 3 
0 3/17/  76  - VI. 4 
03/31/76  - VI. 5 

05/07/76  - VI. 6 - CHANCE  CONTROL  CHARACTER  BACK  SLASH  TO  3 

(BECAUSE  CON  UNIT  WON'T  PRINT  BACK  SLASH) 
08/30/76  - V2.0  - CHANGE  ORDER  OF  DOCUMENT. 

SHORTEN  PROCESSING  OF  'DATA  CARO'  SECTION. 
10/20/76  - V2.1  - FIX  SOME  PROMPTING  MESSAGES.  MOVE  PROMPT 

FOR  language  to  ITS  POSITION  IN  THE 
DOCUMENT  (AFTER  FUNCTIONAL  CATEGORIES). 

TO  AVOID  CONFUSION  WITH  ECHO/NON-ECHO  MODE 
OF  A TELETYPE,  THE  WORD  'ECHO'  IS  CHANGED 
TO  'REPRINT'  IN  THIS  PROGRAM.  ALLOW 
REPRINT  TO  BE  TURNED  ON/OFF  DYNAMICALLY. 
ALLOW  LONG/SHO.RT  PROMPTING  TO  BE  CHANGED 
DYNAMICALLY.  ADD  SEVERAL  LANGUAGE 
ABBREVIATIONS. 

32/14/77  - V2.2  - ADO  DEFAULT  PL  FOR  FORTRAN  MAIN  PROGRAMS. 

ADD  SECTION  OF  ERROR  MESSAGES  FOR  MAIN 
PROGRAMS  AND  PROCEDURES. 

04/20/77  - V2.3  - ADD  MORE  DEFAULTS  FOR  LANGUAGE. 

REMOVE  ONE  OF  TTY  PROMPTER  FILES 
(PROGRAM  LEAVES  FILE  'TTY'  CONNECTED). 
CORRECT  3 PROCESSING  IN  2 PLACES. 

08/09/77  - V2.4  - EXPAND  EXECUTE  CARO  OPTION  PARAMETER. 

ADD  main  program  COVER  SHEET. 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LTBRAPY:  U T I L I T Ypl , I 0= C S YS 

OBJECT 

EJITLIB  USER  LIBRARY)  UTILITY 
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o>?OGRAM  »00:iT» 


PURPOSE 

AGO  PAGING  TO  A DOCUMENT 
PUNCTTONAL  CATEGO'JYt  Q6 
LANGUAGEI  FORTRAN  IV  EXTENDED 
REMARKS 

NORMALLY,  PROGRAM  *OOC*  (OR  *MTDOC*)  IS  USED  TO  CREATE  A 
noCUMENT.  AN  EDITOR  IS  THEN  JSEO  TO  MODIFY  IT  AND  INDICATE 
THE  START  OF  EACH  PAGE.  PROGRAM  *LINER»  MAY  BE  USED  TO 
CHECK  PAGE  LENGTHS.  FINALLY,  'DOCIT*  HILL  INCREASE  EACH 
PAGE  TO  FO  OP  30  LINFS  (FOR  G OR  8 LINES  PEP  INCH, 

RESPECTIVELY)  AND  ADC  THE  DATE,  DOCUMENT  NAME  AND  PAGE 
NUMBER  AT  THE  BOTTOM  OF  EACH  PAGE. 

DOCUMENT  LINES  HAVE  THE  FOLLOHING  FORMAT)  | 

COL  CONTENTS  j 

5 

1 CARRIAGE  CONTROL  (*1*,  ' *,  *0',  *♦*,  'S', 

'T»,  'V»,  »VC') 

THE  FOLLOWING  SPECIAL  CARRIAGE  CONTROL  CHARACTERS  ; 

APE  RECOGNIZED!  j 

S - LINE  COPIED  AND  uINES  PER  PAGE  SET  TO  60  i 

T - LINE  COPIED  AND  LINES  PER  PAGE  SET  TO  80 
V - LINE  COPIED 

VC  - THIS  LINE  AND  NEXT  LINE  COPIED 
THESE  CHARACTERS  DO  NOT  ALTER  THE  LINE  COUNT. 

2-72  LINE  TO  BE  PRINTED 

(CHARACTERS  AFTER  COLUMN  72  ARE  NOT  COPIED) 

THF  last  line  of  EACH  PAGE  (PRODUCED  BY  OOCIT)  WILL  BE 
CREATED  3Y  OOCIT  IN  THE  FOLLOHING  FORMAT  I 
COL  CONTENTS 


1 CARRIAGE  CONTROL  ('  '0') 

2-9  DATE  (MM/nO/YY) 

27-16  TYPE  OF  DOCUMENT.  ONE  OF!  PROGRAM,  SUBROUTINE, 

FUNCTION,  PROCEDURE,  MAG  TAPE. 

55-61  DOCUMENT  NAME 

63  *-• 

65-66  PAGE  NUMBER 

63-69  *OF* 

71-72  TOTAL  NUMBER  OF  PAGES 

THE  DOCUMENT  NAME  IS  TAKEN  FROM  LINES  HAVING  *1'  IN  COLUMN  1 
AND  THE  FOLLOHING  CHARACTER  STRINGS  STARTING  IN  COLUMN  10)1 
PROGRAM  •<NAME>' 

SUBROUTINE  *<NAME>' 

FUNCTION  •<NAME>' 

PROCEDURE  »<NAME>' 

TAPE  '<TAPEN0>* 

WHERE  <NAME>  IS  1-7  CHARACTERS;  <TAPENO>  IS  1-6  CHARACTERS. 
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EXECUTION! 

FROM  3ATCH 

NOT  OESIGNEO  FOR  BATCH  USE 

FROM  TTY 

CONNECT, OUTPUT 
ATTACH, UTILITY. 

LIBRARY, UTILITY. 

ooc. 

(CREATE  DOCUMENT  ON  FILE  'OOCMNlM 
EDITOR 

EOIT,DOnMNT,S 

(MODIFY,  IF  necessary.  INDICATE  START  OF  EACH  »AGE  BY 
putting  a *1*  IN  COLUMN  1 OF  EACH  LINE  WHICH  IS  TO  BE 
THE  FIRST  LINE  OF  A PAGE.! 

SAVE,NEWOOC, N 

(INSTEAD  OF  THE  EDITOR/EOIT/SA VE  SEQUENCE,  ANOTHER 
EDITOR  MAY  BE  USED,  SUCH  ASI 
ATTACH,NETED. 

neted,oocmnt 

(MODIFY,  ETC.) 

SAVF  NEWDOC  ) 

LINER, NEWOOC. 

(WILL  COUNT  PAGES  AND  NUMBER  OF  LINES  PER  PAGE.  IF 
any  page  has  MORE  THAN  SB  OR  79  LINES,  GO  BACK  AND 
RESTRUCTURE.) 

BYE 

QOCIT, NEWOOC, FILE. 

(DO  SOMETHING  WITH  'FILE*  --  PERHAPS  USE  PROCEDURES 
•DOCADO*  OR  'OOCPEPL*  TO  PUT  IT  INTO  A DOCUMENT  FILE) 

EXECUTE  CARO  PARAMETERS 

OOCIT,INFILE,OUTFILE,MAXPAGE, DATE, NAME, OUTPUT. 

INFILE  - INPUT  FILE  (REWOUND  BEFORE  AND  AFTER) 
OUTFILE  - OUTPUT  FILE  (REWOUND  BEFORE  AND  AFTER) 
MAXPAGE  - MAXIMUM  NUMBER  OF  PAGES  IN  DOCUMENT  (1-9) 

(IF  OMITTED,  PROGRAM  WILL  COUNT  PAGES) 

DATE  - DATE  TO  BE  PUT  ON  BOTTOM  LINE  OF  EACH 
DOCUMENT  (MMODYY) 

(IF  OMITTED,  CURRENT  DATE  WILL  BE  USED) 

NA“E  - NA^E  OF  DOCUMENT 

(WILL  BE  USED  ONLY  IF  NAME  CANNOT  BE  FOUND 
ON  first  line  of  DOCUMENT) 

OUTPUT  - LISTA3LE  OUTPUT  (ERROR  MESSAGES) 

default  EXECUTE  CARD 

OOC I T, T APE  1, tape 2,, ,, OUTPUT. 

FL  NEEDED  TO  LOAD*  TIOOOB 
FL  NEEDED  TO  RUN  I 21000B 
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'TRROR  MESSAGES 
ABEND 

PROGRAM  TPRMINATED  ABNORMALLr 

CARD  NO.  <NNN>  <GARO-lMAGE> 

*****  EPROR  - AOO>/E  CARO  HAS  INVALID  CARRIAGE  CONTROL 
CHARACTER  (<CC>) 

MESSAGE  APPEAC-S  ON  OUTPUT  PILE.  CORRECT  ERROR  AND 
RE-EXECUTE  PROGRAM. 

<NNNNN>  ERRORS  - JOB  TERMINATED 

NUMBER  OF  INVALID  CARRIAGE  CONTROL  CHARACTERS 
ENCOUNTERED. 

INPUT  FILE  empty 

IN^UT  FILE  HAS  NO  INFORMATION 

INVALIC  CC  - terminated 

AN  UN°ECOGNIZEO  CARRIAGE  CONTROL  CHARACTER  HAS 
ENCOUNTERED  AND  PROGRAM  TERMINATED.  ERROR  IS  LISTED 
ON  OUTPUT  FILE.  CORRECT  AND  RE-EXECUTE  PROGRAM. 

NO  PAGES  ENCOUNTERED 

NO  carriage  control  *1*  FOUND  WHILE  COUNTING 
PAGES.  MAY  OR  MAY  NOT  3E  A DOCUMENT. 

INPUT/OUTPUT  UNITS 

UNIT  # LFN  use 


DAYFILE  error  MESSAGES  AND  MESSAGES  GIVING 

DOCUMENT  NAME,  DATE  AND  NUMBER  OF  PAGES 
OUTPUT  LISTA3LE  OUTPUT  (ERROR  MESSAGES) 

TAPEl  INPUT  FILE 

TAPE2  OUTPUT  FILE 

SUBPOUTTNE  and  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

And  closem  date  filesq  get 

IFETCH  MAXO  MOO  OPENM  OR 

PUT  RECOVR  REMARK  SHIFT 

PART  OF  PROGRAM 

Eoj  - abnormal  termination  routine 

OTHFRS 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 

IFMTEN  - FAST  I-FORMAT  ENCODE 

IFMTV  - FAST  VARIABLE  I-"ORMAT  DECODE 

LASTC  - FInP  last  non-blank  CHARACTER 

MOVSTR  - MOVE  CHARACTER  STRING 

PUTCHA  - INSERT  CHARACTER  INTO  STRING 

RE»LAC  - REPLACE  ONE  CHARACTER  WITH  ANOTHER 


J 
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ft7ITriMETIC  STftTEHENT  FUNCTIONS 

FAST  A-FO’MAT  OFCOOE  (LEFT-AOJ,  BLANK-FILLED) 

A66FMT  ASIFNT  AeS^MT  A99FNT  A8iaFMT 

FAST  L-FORNAT  DECODE  (LEFT-AOJ,  ZERO-FILLED) 

LllFMT  L21FMT  L23FHT  L25FNT  L31FHT 

L41FMT  L51FNT  LfelFMT  LSIFHT  L91FMT 

PAST  R-FORMAT  OFCOOE  (RIGHT-ADJ,  ZERO-FIlLEO) 

RllFMT 

AUTHOR 

OAVIO  V SOMMER  - OTNSROC  CODE  1392.2 

DATE  WRITTEN!  05/Q4/76 

DATE(S)  REVISED 
OS/OS/Zf) 

06/21/76  - ADD  SCAN  FOR  MTDOC  OUTPUT  AND  OPTIONAL  NAME  ON 
EXECUTE  CARO 

08/30/76  - MOVE  FUNCTION  NAME  EXTRACTION  2 COLUMNS  TO  THE 
RIGHT.  ACCENT  AND  IGNORE  (DO®T)  *DECK  CARD. 
10/13/76  - 1)  CHANGE  OUTPUT  TO  TAPE2  ('OUTPUT*  IS  FOR  ERROR 
MESSAGES)  . 

2)  REWIND  infile  AND  OUTFIlE  BEFORE  AND  AFTER. 

3)  LET  PROGRAM  COUNT  PAGES. 

4)  DOCUMENT  NAME  AND  PAGE  NUMBER  MOVED  LEFT  1 
COLUMN  ON  BOTTOM  LINES. 

06/02/77  - 1)  ALLOW  FOR  6/8  LPI. 

2)  CONVERT  OUTPUT  FILE  TO  6RM. 

3)  AOD  DOCUMENT  TYPE  TO  BOTTOM  LINE  OF  DOCUMENT. 
07/29/77  - 1)  PEMOVE  DOCUMENT  TYPE  FROM  BOTTOM  LINE  OF 

DOCUMENT . 

LOCATION  OF  DECKS 
SOURCE 

update  LIORARYI  UTILITYPL,ia=CSYS 
OBJECT 

EOITLI3  USER  LIBRARY!  UTILITY 
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PROGRAM  'noClJMNT* 


PURPOSE 

MAINTAIN  A FILE  OF  DOCUMENTS 
functional  category*  06  K3 
REMARKS 

EACH  DOCUMENT  IN  A DOCUMENT  FILE  IS  PRECEDED  BY  A 
CARD  WITH  •♦DECK  • IN  COLUMNS  1-6  AND  A 1- 7-CHARACTE R 
DECK  name  IN  COLUMNS  7-13, 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  DF  language 

CLOSEM  FILFSQ  IFETCH  MOtfLEV  OPENM 

PUT  RECOl/R  REMARK  SHIFT 

PART  OF  program 

COPY  - COPY  DOCUMENT  FILE 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 

NEW  - READ  AND  ADO  NEW  DOCUMENT 

OTHERS 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 
REPLAC  - REPLACE  ONE  CHARACTER  WITH  ANOTHER 
REQUEST  - REQUEST, NEW ,*PF. 

wfill  - fill  array  with  word 

ARITHMETIC  STATEMENT  FUNCTIONS 

FAST  A-FORMAT  DECODE  (LEFT-AOJ,  BLANK-FILLED) 

A35FMT 

FAST  L-FORMAT  DECODE  (LEFT-ADJ,  ZERO-FILLED) 

LEIEMT  L«»1FMT  L51FMT  L61FMT  L77EMT 
LBIFMT 

fast  R-FORMAT  DECODE  (RIGHT-ADJ,  ZERO-FILLED) 

RAIFMT 

language*  fortran  IW 

INPUT/OUTPUT  UNITS 

UNIT  # LFN  use 


IN  INPUT  FILE  FOR  NEW  DOCUMENT 

NEW  NEW  DOCUMENT  FILE 

OLD  OLD  DOCUMENT  FILE 

OUTPUT  FTN  ERROR  MESSAGES 

EXECUTION 

FROM  BATCH  AND  TTY 
ATTACH, UTILITY. 

ATTACH,OLO,...,  (OLD  DOCUMENT  FILE) 

LIBRARY, UTILITY. 

OOCUMNT  , . . . . 

CATALOG,NEW,.,..  (NEW  DOCUMENT  FILE) 
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EXECUTE  CARO  PARAMETERS 

DOCUMNT , OLD, NEW, FCN, PROS , AE TE R , I N , S I D 1 , G I DZ , OUTPJ T . 

OLD  - OLD  DOCUMENT  FILE 

NEW  - NEW  DOCUMENT  FILE 

(ALSO  OUTPUT  OF  G FUNCTION) 

FCN  - FUNCTION 

A - AGO  A DOCUMENT 
0 - DELETE  A DOCUMENT 
G - GET  A DOCUMENT 

(IF  NEW  OMITTED,  NEW=PROG) 

P - REPLACE  A DOCUMENT 

(IF  PROG  NOT  FOUND,  FCN  CHANGED  TO  A) 
PROS  - DOCUMENT  NAME 

AFTEP  - FOP  ADO  FUNCTION,  LOCATION  OF  NEW 
DOCUMENT  IN  DOCUMENT  PILE 
OMIITED  - PROS  IS  ADDED  ALPHABETICALLY 

0 - PROS  IS  ADDED  AT  START  OE  FILE 

END  - PROS  IS  ADDED  AT  END  OF  FILE 

OTHER  - PROG  IS  ADDED  APTER  THIS  DOSUMEnT 

IN  - INPUT  FILE  FOR  NEW  DOCUMENT 

REWOUND  BEFORE  AND  AFTER  USE 
MUST  NOT  CONTAIN  ♦DECK  CARO 
GIDl  - RESERVED  FOR  FUTURE  USE 

GID2  - RESERVED  FOR  FUTURE  USE 

OUTPUT  - FTN  ERROR  MESSAGES 

(PROGRAM  MESSAGES  ARE  PUT  INTO  THE  DAYFILE) 

default  EXECUTE  CARO 

DOCUMNT,OLD,NEW,,PROS,AFTER,IN,SI01,GI02,OUTPUT. 

EL  NEEDED  TO  LOAD*  31000B 

FL  NEEDED  TO  RUN  J 22000B 

examples 

ASSUME  THE  OLD  DOCUMENT  FILE  (ON  LFN  OLD)  HAS  THE  FOLLOWING 

DOCUMENTS)  A,  B,  0,  F,  G,  H. 

TO  ADD  DOCUMENT  C (ON  LEN  CC)  IN  ALPHABETICAL  ORDER) 

OOvUMNT ,,fAfC,,CC* 

THE  NEW  DOCUMENT  FILE  WILL  HAVE)  A,  0,  C,  0,  F,  G,  H. 

TO  AOD  DOCUMENT  C (ON  LFN  CC)  AT  START  OF  THE  FILE) 

OOCUMNT, , , A,C,0 ,CC. 

THE  NEW  DOCUMENT  FILE  WILL  HAVE)  C,  A,  B,  D,  F,  G,  H. 

TO  ADD  DOCUMENT  C (ON  LFN  CC)  AT  THF  END  OF  THE  FILE) 
OOCUMNT , , , A ,r ,FNO,CC. 

THE  NEW  DOCUMENT  FILE  WILL  HAVE)  A,  B,  0,  F,  S,  H,  C. 

TO  ADD  DOCUMENT  C (ON  LFN  CC)  AFTER  DOCUMENT  Fl 
OOCUMNT , , , A ,C  ,F  ,CC. 

THF  NEW  DOCUMENT  FILE  WILL  HAVE)  A,  D,  0,  E,  C,  S,  H. 

TO  DELETE  OOCUMENT  G) 

DOCUMNT ,, ,D,G* 

THE  NEW  DOCUMENT  FILE  WILL  HAVE)  A,  B,  D,  E,  H. 
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TO  REPLACE  DOCUMENT  E (NEW  DOCUMENT  ON  LFN  FF) I 
OOCUMNT, , ,Rf  F, , FF. 

THE  NEW  DOCUMENT  FILE  WILL  HAl/Et  A,  B,  D,  F,  G,  H. 

TO  REPLACE  DOCUMENT  E (NEW  DOCUMENT  ON  LFN  EE) I 
OOCUMNT,,,R,E,,EE. 

THE  NEW  DOCUMENT  FILE  WILL  HAVEI  A,  B,  D.  E,  F,  G,  H. 
NOTE  THAT  SINCE  E DID  NOT  EXIST,  REPLACE  FUNCTION  WAS 
CHANGED  TO  ADD  ( OOCUMNT , , A , E , , EE . ) . BECAUSE  THE  AFTER 
PARAMETER  WAS  OMITTED,  E WAS  ADDED  ALPHABETICALLY. 

TO  GET  (EXTRACT)  DOCUMENT  Dt 

DOCUMNT , , , G, D.  (DOCUMENT  WILL  BE  ON  LFN  G) 

OOCUMNT,, DO, G,D.  (DOCUMENT  HILL  BE  ON  LFN  DO) 

author 

DAVID  V SOMMER  - OTNSROC  CODE  1392. E 
DATE  WKITTENI  01/20/76 

date(S)  revised 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARVI  UTILITYPL , ID=C SYS 
08UECT 

EDITLIB  USER  LIBRARYI  UTILITY 


01/20/76 
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P-^OGRttM  'FXFSARO* 


PURPOSE 

FXTRACT  FXFCUTE  CAKO  PARAMETE^/SUBPROGRAM  USAGE/PROCEDURE 
USAGE  INFORMATION  FROM  DOCUMENTATION  FILES  (WHICH  WERE 
prepared  in  the  format  generated  By  PROGRAM  'OOC') 

functional  CATEGORrt  SG  06 

PF><APi<S 

documentation  file  is  compatible  with  an  update  'SOURCE* 
file  of  ’DECK'S  ONLY. 


subroutine 


ANO  FUNCTION  SUBPROGRAMS  REQUIRED 


PAPT  OF  language 
AND  DATE 

RECOUP  REMARK 

PART  OF  program 

EOJ  - ABNORMAL 

OTHERS 


EOF  MOULEU 

SHIFT  TIME 

TERMINATION  ROUTINE 


OR 


FSETFIT 

getlfns 

PAKLFT 

ZPFUNC 


SET  FTN  FIT  VALUES 
GET  ACTUAL  FILE  NAMES 
SQUEEZE  blanks  AND  ZEROS  OUT  OF  PFN 
ATTACH  DOCUMENTATION  FILE 


arithmetic  statement  functions 

FAST  L-FORMAT  DECODE  (LEFT-ADJ 
lllFMT  LZIFMT  L51FMT 
LZIOFMT  L81FMT 
FAST  R-FORMAT  DECODE  (RIGHT-AD 
R92FMT 


t 


J » 


ZERO-FILLED) 
L61FMT  L77FMT 

ZERO-FILLED) 


INPUT/OUTPUT  UNITS 
UNIT  • LFN 


USE 


1 ZZOOC  FILE  CONTAINING  DOCUMENTATION 

(ATTACHED  AND  RETURNED  WITHIN  PROGRAM) 
(IF  THE  USER  REPLACES  THE  EILE  NAME  AT 
EXECUTION  TIME,  THE  FILE  IS  ASSUMED  TO 
BE  ALREADY  ATTACHED  AND  WILL  NOT  BE 
RETURNED) 

OUTPUT  listable  output 

EXECUTION 

FROM  BATCH 

BFGIN, UTILITY,, EXEC ARC, LIBRARY, ID. 


FROM  TTY 

3fgIN,UTILITY, ,EXECARD,LIBRARY, ,10, ANY, 
ROUTE, any, OC=PR,.., . 
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EXECUTE  CARO  PARAMETERS 

EXECAPO.LIBRARY , ID, OUTPUT, ^EET, FULL, OOC FILE. 
library  - name  of  library  to  be  extracted 

MAY  BE  ONE  OFl 
NSR9C 

UTILITY  (OEFAULT) 

ANY  OTHER  LIBRARY  NAME  (1-7  CHAR) 

PROGPAM  WILL  ATTACH  AND  RETURN  THE 
DOCUMENTATION  FILE.  THE  PFN  USED  WILL  BE 
THE  LIBRARY  NAME  SPECIFIED,  FOLLOHEO  BY 
'DOCUMENTATION'  (DEFAULT  IS 
'UTILITY  DOCUMENTATION') 

ID  - ID  UNDER  WHICH  DOCUMENTATION  IS  CATALOGED 

(OEFAULT  IS  THE  SYSTEM  PUBLIC  ACCESS  ID) 
OUTPUT  - LISTABLE  OUTPUT 
LEFT  - PRINT  CENTERING 

OMITTED  OR  'LEFT'  - LEFT - UUST I F I E D ON  PAGE 
ANYTHING  ELSE  - CENTERED  ON  LARGE  PAGE 

(OEFAULT  IS  LEFT-JUSTIFIED) 

FULL  - OMITTED  OR  'FULL'  - PRINT  ONE  OFt 

A)  PROGRAM  EXECUTE  CARO,  DESCRIPTION  OF 
PARAMETERS,  OEFAULT  EXECUTE  CARD; 

B)  SUBPROGRAM  USAGE  AND  DESCRIPTION  OF 

parameters; 

C)  PROCEDURE  USAGE,  DESCRIPTION  OF 
PARAMETERS  ANO  DEFAULT  BEGIN  STATEMENT 

ANYTHING  ELSE  - PRINT  ONLY  EXECUTE  CARD 

OR  SUBPROGRAM  USAGE  OR  PROCEDURE  USAGE 
DOCFILE  - IF  USER  HAS  PREVIOUSLY  ATTACHED  A 

DOCUMENTATION  FILE,  PLACE  LFN  HERE  AND  OMIT 
THE  FIRST  2 PARAMETERS  ('LIBRARY'  AND  'ID'). 
WHEN  THIS  PARAMETER  IS  USED  ANO  IS  NOT 
'Z700C',  THE  FILE  IS  NOT  RETURNED  AT  END  OF 
EXECUTION. 

OEFAULT  EXECUTE  CARO 

EXECARO,UTILITY,» *, OUTPUT ,L EFT , FULL , ZZOOC  . 

FL  NEEDED  TO  LOADI  30000B 
FL  NEEDED  TO  RUN  t 20000B 

AUTHOR 

DAVIO  V SOMMER  - DTNSRDC  CODE  1B92.2 

DATE  WRITTENJ  05/03/76 

OATE(S)  REVISED 
05/05/76 
05/18/ 76 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UTILI TYPL , IO=CSYS 
OBUECT 

EDTTLTB  USER  LIBRARY!  UTILITY 
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PROGPftM  'FORMATR* 


PURPOSE 

this  is  fi  TE)fT  FORHflTTER.  IT  IS  DESIGNED  TO  BE  OF 

assistance  to  the  person  who  neeos  to  manipulate  text  files 

WHICH  ARE  NOT  INHERENTLT  LINE  ORIENTED.  IT  WILL  ACCEPT 
FRFP-PORM  INPUT  AND  GENERATE  FORMATTED  OUTPUT  UTILIZING 
arbitrarily  sized  RECORDS.  THE  INPUT  CONSISTS  OF  TEXT  AND 
OPTIONAL  DIRECTIVES  WHICH  CONTROL  SUCH  FUNCTIONS  AS 
PARAGRAPH  INDENTING  ANO  LINE  SPACING. 

FUNCTIONAL  CATEGORYt  M4  R4 

language:  fortran  IV 
REMARKS 

1 - this  PROGRAM  IS  BEING  MADE  AVAILABLE  AS  RECEIVED  (WITH 

MINOR  PEVISION).  THERE  ARE  NO  PLANS  TO  EXPAND  ITS 
capabilities  or  to  improve  the  existing  FUNCTIONS. 

SOME  EXTENSIONS  ARE  INDICATED  IN  THE  DIRECTIVE  LIST  BUT 
ARE  flagged  as  NOT  IMPLEMENTED. 

2 - THE  PROGRAM  WILL  GENERATE  UNNUMBERED  LINES  OF  UP  TO  136 

CHARACTERS  EACH. 

3 - THE  ??0  DIRECTIVE  ALLOWS  THE  PROGRAM  TO  GENERATE  VALID 

INPUT  FOR  ITSELF. 

4 - EDITOR  MAY  BE  USED  TO  ADO  PAGING  TO  THE  OUTPUT.  TO 

FACILITATE  THIS,  THE  OUTPUT  FILE  SHOULD  HAVE  A LEFT 
MARGIN  OF  2 OR  GREATER. 

EXECUTION 

FROM  BATCH 

COPYP, INPUT ,TAPE1.  (OR  A T T A C H , T A PE 1 , . . . . ) 

8EGlN,UTILITY,,FOPMArR. 

(DO  something  WITH  TAPE2) 

7/8/q  EOR 

(TEXT  AND  optional  DIRECTIVES,  IF  COPYR  USED) 

6/Z/8/9  EOF 

FROM  tty 

ATTACH,TAPE1,..  ..  (INPUT  DOCUMENT) 

BEGlN,UTIHTY,,FORMATR. 

(DO  SOMETHING  WITH  TAPE2) 

EXECUTE  CARO  PARAMETERS 

formatr,infile,outfile,output. 
infile  - input  document  file 
outfile  - genepatep  output  document  file 

OUTPUT  - FTN  ERROR  MESSAGES 

default  EXECUTE  CARD 

FORMA T R,T A PEI ,TAPF2 , OUTPUT. 

EL  NEEDED  TO  LOADI  27000B 
PL  NEEDED  TO  RUN  I 17000B 
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QflTfl  TARTS 


COL 

CONTENTS 

1-2 

??  - 

INDICATES 

A DIRECTI 

VE 

ANYT 

HING  ELSE 

- ASSUMED 

TO 

BE 

TEXT  DATA 

; ON 

FOP 

DIRECTIVES 

ONLY  (?? 

IN 

1- 

2) 

THE 

following 

DIRECTIVES 

ARE 

SUPPORTED! 

??C 

??C» 

??c>x 

??c- 

??c 

??0f 

??n- 

??F 

??FL 


>IL,R  - 


??P 
??P*  I 


??S1 

??S2 

??S3 

??S*I 

??u 


TNPUT/OUrPUT 
UNIT  # 


UNITS 

LFN 

OUTPUT 

TAPEl 

TAPE2 

ZZTTYO 


00/21/78 


GENERATE  COMMENT  CARDS  (*  IN  COLUMN  1) 
SAME  AS  ??3 

GENERATE  COMMENT  CARDS  PUTTING  X INTO 
COLUMN  1 (DEFAULT!  *) 

SUSPEND  COMMENT  CARO  GENERATION  (DEFAULT) 
PUT  DIRECTIVES  INTO  OUTPUT 
SAMF  AS  ??0 

SUPPRESS  DIRECTIVES  IN  OUTPUT 
FORMATTED  MODE 

FORMATTED  MODE,  OUTPUT  LEFT  AND  RIGHT 
MARGINS  ARE  - AND  R 
(DEFAULTI  ??F7,/2) 

INPUT  RECORD  SIZE 

(FROM  COLUMN  L TO  COLUMN  R) 

(DEFAULT!  ??Il,72) 

INDENT  A NEW  PARAGRAPH 

LEAVE  N BLANK  LINES  BEFORE  INDENTING 

A NEW  PARAGRAPH 

(NOT  implemented;  see  remark  1) 

SING.E  SPACE  LISTING  (DEFAULT) 

DOUBLE  SPACE  LISTING 
TRIPLE  SPACE  LISTING 
SKIP  N BLANK  LINES 

(NOT  implemented;  see  remark  d 

UNFORMATTED  MODE 

(COPY  CARDS  TO  NEXT  DIRECTIVE) 


USE 

FTN  ERROR  MESSAGE  FILE 
INPUT  DOCJMENT  FIlE 
GENERATED  OUTPUT  DOCUMENT 
TTY  PROMPTER 


FILE 


2-50 


FORMATR 


2 OF 


L 


EXAMPLE 

ATT AGH, T APEI , FORMAT RTEST,ID=C SYS. 

GOPYSR.TAPEl, OUTPUT.  TO  LIST  ORIGIMAL  FILE 

REGIN,UTILITY,,FORMATR. 

COPYR, TAPE2, OUTPUT  . TO  LIST  FORMATTED  FILE 


SUBROUTINF 
PART  OF 
AND 

PART  OF 


AMO  FUNCTION 

language 

CONNEC 

PROGRAM 


SUBPROGRAMS  REQUIRED 


EOF 


MINO 


OIREC  - PROCESS  DIRECTIVES 
FETCH  - EXTRACT  NEXT  WORD  OF  TEXT 
GETPARM  - GET  NUMERIC  PARAMETER  FROM 
INITLTZ  - INITIALIZE  THE  PROGRAM 
INSERTS  - INSERT  A BLANK 
MOVIT  - MOVE  A RECORD 
PRINTL  - WRITE  A LINE 
OTHERS 

FSETFIT  - SET  FTN  FIT  VALUES 
VFILL  - FILL  ARRAY  WITH  WORD 


SHIFT 


A DIRECTIVE 


ARITHMETIC 

IllFMT 

RllFMT 


STATEMENT  FUNCTIONS 

- FAST  I-FORMAT  DECODE 

- FAST  R-FORMAT  DECODE  (RIGHT-ADJ,  ZERO-FILLED) 


AUTHORS 

ANDY  SCHNEIDER 
DAVID  V SOMMER 


DTNSRDC  CODE  1992.3 
DTNSRDC  CODE  1892.2 


OATE  WRITTEMJ  19Z4 

DATE(S)  REVISED 
09/20/76 

LOCATION  OF  DECKS 
SOURCE 

UOQATF  LIBRARY)  UTILITYP. , IO=CSYS 
OBJECT 

EOITLI3  USER  LIBRARY!  UTILITY 


09/21/76 
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PROGRAM  'GETOBJ* 


PURPOSE 

EXTRACT  ONE  OBJECT  MODULE  FROM  A SEQUENTIAL  OBJECT  FILE 
OR  AN  EOITLIB  USER  LIBRARY 


i^UNCTIONAL  CATEGORY  I K.T 

i 

LANGUAGE!  FORTRAN  IV  EXTENDED 


REMARKS 

IF  THE  OBJECT  FILE  IS  SEQUENTIAL  (SUCH  AS  THE  OUTPUT  OF  A 
COMPILER),  THE  FIRST  OCCURRENCE  OF  THE  SPECIFIED  MODULE 
IS  EXTRACTED.  IF  THE  OBJECT  FILE  IS  AN  EOITLIB  USER 
LIBRARY,  THE  LAST  OCCURRENCE  IS  EXTRACTED. 

EXECUTION 

FROM  BATCH  ANO  TTY 

ATTACH,TAPE1, ....  (INPUT  FILE) 

REGIN,UTILITY, ,GETOBJ, ,ROUTINE, . . .. 

EXECUTE  CARO  PARAMETERS 

GET  OB J, INFILE, ROUT  I NP,0UTFILE, LIB, OUTPUT. 

INFILE  - INPUT  OBJECT  FILE 
ROUTINE  - NAME  OF  DESIRED  ROUTINE 
(1-7  CHARACTERS) 

nUTFILE  - will  contain  extracted  ROUTINE 
LIP  - OMITTED  - iNFILE  IS  SEQUENTIAL 

LIB  - INFILE  IS  EOITLIB  USER  LIBRARY 

OUTPUT  - FTN  ERROR  MESSAGES 

OEFAU.T  EXECUTE  CARO 

GET03J,TAPE1,RTN,TAPE2, ,OUrPJT. 

FL  NEEDED  TO  LOAQt  310Q0B 
FL  NEEDED  TO  RUN  ) 210008 

INPUT/OUTPUT  UNITS 

UNIT  • LFN  use 


OUTPUT  FTN  ERROR  MESSAGES 

TAPEl  INPUT  OBJECT  FILE 

TAPE2  OUTPUT  FILE  CONTAINING  EXTRACTED  MODULE 


I 
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subroutine  and 

FUNCTION 

SU3PROGRAM3  REQUIRED 

PART  OF  language 

CLOSEH 

FILESQ 

GET 

IFETCH 

OPENM 

PUT 

WEDR 

REMARK 

REWND 

SHIFT 

STOREF 

PART  OF  PROGRAM 

LOCLIB 

- LOCATE 

MODULE  IN 

AN  EOITLI3  USER  LIBRARY 

LOCSEO 

- LOCATE 

MODULE  IN 

A SEQUENTIAL 

file 

OTHERS 

getlfns 

- GET  actual  local 

FILE  NAMES 

aRITHMETIC 

L31FMT 

R21FMT 


STATFiENT  FUNCTIONS 

- FAST  L-FORMAT  DECODE  (LEFT-ADJ,  ZERO-FILlEC) 

- FAST  R-FORMAT  DECODE  (RIGHT-AOJ,  ZERO-FILLED) 


AUTHOR 

DA)/IO  y/  SONMER 


DTNSRDC  CODE  1392.2 


DATE  WRITTEN!  II/IS/ZE 


OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UT IL IT YPL , I9=C3 Y3 

OBJECT 

EOITLIB  USER  LIBRARY!  UTILITY 


11/13/73 
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I 


P'^OGRAM  'HEKOMP* 

PURPOSE 

DUMP  9-TRAC<  TAPE  IN  HEXADECIMAL  FORMAT 
f^UNCTTONAL  CATEGO»r»  J9  Ki* 

LANGUAGE!  FORTRAN  IV  EXTENDED 
REMARKS 

ACOEPTS  variable  LENGTH  RECORDS  UP  TO  5120  COC  CHARACTERS. 
DUMPS  SPECIFIED  NUMBER  OF  RECORDS  (PRUS  IF  S TAPE)  UP 
TO  ONE  FILE.  TAPE  POSITIONING  MAY  3E  DONE  BY  SKIPF 
CONTROL  CARD.  AFTER  ANY  PARITY  ERROR,  PROGRAM  PRINTS 
••PARITY  ERROR  ON  RECORD  . . . •*  AND  CONTINUES.  OUTPUT  IS 
RFCORD  NUMBER  AND  SIZE  FOLLOWED  BY  LINES  OF  120  HEX 
CHARACTERS. 

IN  THE  special  case  WHEN  TYPE=1,  EACH  CDC  WORD  CONTAINS  10 
HEX  DIGITS.  EACH  4-BIT  HEX  DIGIT  OCCUPIES  THE  FIRST  4 BITS 
OF  EACH  6-BIT  CHARACTER.  HEXDMP  WIlL  REMOVE  THE  EXTRA  BITS 
AND  PRINT  IN  GROUPS  OF  10  HEX  DIGITS. 

execution 

FROM  BATCH 

REDUEST,TAPE1,HD,NORInG,S,VSN= . OR  LABE., . 

BEG  IN, UTILITY,, HE XDMP,  ,. ... 

FROM  TTY 

NOT  USABLE  FROM  TTY 
EXECUTE  CARO  PARAMETERS 

HEX OMP( INFILE ,S TART ,NPRUS,OUTPUT, REW, TYPE, PL=NNNN) 

INRILE  - INPUT  FILE 

start  - starting  PRU/RECORD  number  (DECIMAL) 

0 OR  OMITTED  - START  AT  BEGINNING  OF  FILE 
NPRUS  - NUMBER  (DECIMAL)  OF  PRUS/RECOROS  TO  BE  DUMPED 
(DEFAULT!  9999999  - ALL  OF  FILE) 

OUTPUT  - LISTABLE  OUTPUT 

REW  - INFILE  REWIND  OPTION 

A - REWIND  AFTER  USE 

3 - rewind  BEFORE  USE 

R - REWIND  BEFORE  AND  AFTER  USE 

U - REWIND  BEFORE,  REWIND  AND  UNLOAD 

AFTER  USE 

OTHER  - REWIND  (DEFAULT) 

(ANY  WOi^i  BEGINNING  WITH  THESE  LETTERS  WILL 
PRODUCE  THE  SAME  RESULTS) 

TY“F  - 1 - fACH  hex  digit  IS  TO  BE  FIRST  4 BITS 

OF  EACH  6-3IT  CHARACTER  (10  HEX 
DIGITS  PER  WORD) 

OTHER  - NO  SPECIAL  HANDLING 
NNNN  - LINE  LIMIT  IF  DESIRED 
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oepault  execute  card 

HEX OMP (TA PEI, 1,99999 9 q, OUTPUT, NDREH) 

OE'^AULT  PLt  9000  LINES 

EL  needed  to  LOAOt  300000 
NEEDED  TO  RUN  I 200  00  0 

(PROGRAM  REDUCES  TO  MINIMUM  NEEDED  TO  RUN) 
INPUT/OUTPUT  UNITS 

UNIT  # LFN  USE 


OUTPUT  LISTABLE  OUTPUT 
1 TAPEl  9-TRACK  TAPE  TO  9E  DUMPED 

examples 

HEXDMP(TAPE9,1,10)  LIST  FIRST  10  RECORDS  ON  TAPE9 

HEXDMP(,20,5,PL=150)  LIST  RECORDS  20  THRU  24  ON  TAPEl, 

UP  TO  150  LINES 

METHOD 

BUFFER  IN,  ODD  PARITY 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

BUFFFRIN  LENGTH  UNIT 

PART  OF  PROGRAM 

HEXl  - EXTRACT  4 OF  EACH  6 BITS 
PRT  - NORMAL  PRINT 

PRTl  - PRINT  FOR  TYPE  1 

OTHERS 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAME 
IFMTY  - FAST  VARIABLE  LENGTH  I-FORMAT  DECODE 
SETREW  - DECODE  REWIND  OPTION 
unload  - UNLOAD, INFILE. 

AUTHOR 

NO^A  TAYLOR  - OTnSRDC  COOE  199.1 

SHAC-ON  GOOD  - DTNSROC  COOE  1892.1 

□AVID  V SOMMER  - DTNSROC  COOE  1892.2 

DATE  HRITTFNI  JULY  19T6 

OATE(S)  REVISED 
OCTOBER  1976 

03/03/77  - DVS  - ADO  'TYPE*  OPTION 

ADO  TYPE  1 CONVERSION 
ACTIVATE  REWIND  OPTION 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRAPYI  UT IL I T YPL , I D=C SYS 
OBJECT 

EDITLIB  USER  LIBRARYI  UTILITY 


03/03/77 
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program  'JOBTIME* 


PURPOSE 

PUT  JOB  CP  EXECUTION  T 
FUNCTIONAL  CATEGORYI 
AUTHOR 

DAVID  V SOMMER  - NSROC 
DATE  WRITTEN!  03/10/75 


IME  TO  THIS  POINT 
QO 

CODE  1892.2 


INTO  DAYFILE 


OATE(S)  REVISED 

REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
REMARK 
OTHERS 
NONE 

EXECUTION 

FROM  BATCH  AND  TTY 
ATTACH, UTILITY. 

LIBRARY, UTILITY. 

J08TIME. 

default  execute  CARO 

JOBTIME. 

FL  NEEDED  TO  LOAD!  21000B 

LOCATION  OF  DECKS 
SOURCE 

TAPE  LABELLED  CSYSUT ILIT YPL ? P.F.  JT I L I T Y PL , I 0 = 
OBJECT 

EOITLIB  USER  LIBRARY!  UTILITY 


i 

f 


! 


i 


CSYS 


08/22/77 
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I 

I 

I 


PSOGRftM  ‘liner* 


PURPOSE 

COUNT  LINES  AND  PAGES  OF  A FILE  HAVING  FIRST  CHARACTER 
CAPRIAGE  CONTROL 

pUNCTIONAL  CATEGORY!  00 

REPARKS 

NONE 

subroutine  and  function  susprograms  required 

PART  OF  LANGUAGE 

AND  CLOSEM  DATE  FIlESQ  GET 

IFETCH  OPENM  RECOVR  REMARK  SHIFT 

TIME 

PART  QP  PROGRAM 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 

others 

GETLFNS  - GET  actual  LOCAL  FILE  NAMES 
LVLEOR  - GET  EOR  LEVEL  FROM  FIT 
SETPEW  - DECODE  PEWINO  OPTION 

METHOD 

CHAR  ACTION 


1 ADO  1 TO  PAGE  counter;  RESTART  LINE  COUNTER 

SPACE  ACO  I TO  LINE  COUNTER 

a AOO  2 TO  LINE  COUNTER 

ADO  3 TO  LINE  COUNTER 
OTHER  IGNORED 

INPUT/OUTPUT  UNITS 

UNIT  # LFN  USE 


TAPEl  INPUT  FILE 

OUTPUT  LISTABLE  OUTPUT 

EXECUTION 

FROM  3ATCH 

ATTACH, UTILITY. 

LaSET,LI3=UTILITY. 

attach, TAPEl,  . . . FILE  TO  BE  PROCESSED 
LINER. 

FROM  TTY 

ATTACH, UTILITY. 
library, UTILITY. 

ATTACH, TAPEl,  . . . file  TO  BE  PROCESSED 
LINER. 


OA/22/77 
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LINER 


I DF  2 


EXFCUTE  CftRO  PARAMETERS 
LI’^ER,  TAPEI  ,OUTPUT,  REW. 

tapei  - file  to  3F  PROSESSEO 
OUTPUT  - LISTABLE  OUTPUT 
PEW  - REWIND  OPTION  FOR  TAPEI 
A - REWIND  AFTER  USE 

B - REWIND  BEFORE  JSE 

R - REWIND  BEFORE  AND  AFTER  USE 

U - rewind  BEFORE,  REWIND  AND  UN.OAD 

USE 

OTHER  - NO  REWIND  (DEFAULT) 

(ANY  WORDS  BESINNINS  WITH  THESE  LETTERS 
WILL  PRODUCE  THE  SAME  RESULTS) 

DEFAULT  EXECUTE  CAPO 

L INF R, T APE 1 , OUTPUT, NOREWIND. 

FL  NEEDED  TO  LOAD!  2r00JB 
FL  NEEDED  TO  RUN  I 17000B 

AUTHOR 

DAVID  V SOMMER  - DTNSRDD  CODE  1892.2 
DATE  WRITTEN!  05/31/73 


DATE(S)  REVISED 
01/10/75 

03/22/76  - CHANGE  TO  RECORD  MANAGER;  THRU  EOi;  NOREWIND 
03/23/76  - CORRECT  EOR  PROBLEM 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UT I L IT Y P- , 1 0= Cl  1 3 

OBUECT 

EDTTLTB  USER  LIBRARY!  UTILITY 


03/23/76 
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PROGRAM  'LINERL* 


PURPOSE 

LIST  A DOCUMENT  (CARRIAGE  CONTROL  IN  COLUMN  1,  ZERO  BTTE 
terminated  RECORDS)  WITH  RECORD  COUNT  AND  COUNT  OF  LINES  ON 
EACH  PAGE.  LIST  THRU  ENO-OF-INFORMA TI ON. 

FUNCTIONAL  CATEGORY!  01  QO 

LANGUAGE!  FORTRAN  IV 

REMARKS 

MAY  RE  USED  TO  LIST  A DOCUMENT  CREATED  BY  PROGRAM  ‘DOC* 

TO  ASSIST  IS  DEFINING  PAGES  BEFORE  USING  PROGRAM  'OOCIT* 

TO  COMPLETE  THE  DOCUMENT. 

EOP,  EOF  AND  EOI  APE  LISTED  AND  CAUSE  LINE  COUNT  TO  BE  RESET 
TO  0 (ZERO). 

EXECUTION 

from  batch 

BEGIN, UTILITY,, LINE  PL, INFILE. 

FROM  TTY 

ATTACH  OR  OTHERWISE  CREATE  INFILE. 

BEG  IN, UTIL  IT Y,, LINERL , INFILE, OUT, R. 

ROUTE, OUT, OC=PR,.... 

EXECUTE  CARO  PARAMETERS 

LINERL, INFILF, OUTPUT, REW,LP I, ST ART, I NCR. 

INFILE  - INPUT  DOCUMENT  FILE 
OUTPUT  - LISTABLE  OUTPUT 
PEW  - infile  rewind  OPTION 

A - REWIND  AFTER  USE 

B - REWIND  BEFORE  USE 

R - REWIND  BEFORE  AND  AFTER  USE 

U - REWIND  BEFORE,  REWIND  AND  UNLOAD 

AFTER  USE 

OTHER  - NO  REWIND  (DEFAULT) 

(ANY  WORDS  BEGINNING  WITH  THESE  LETTERS  WILL 
PRODUCE  THE  SAME  RESULTS) 

LPI  - lines  per  inch 

F.  - 6 LINES  PER  INCH 

ANYTHING  ELSE  - » LINES  PER  INCH  (DEFAULT) 
START  - STARTING  LINE  NUMBER  (DEFAULT!  1) 

INCR  - LINE  NUMBER  INCREMENT  (DEFAULT!  1) 

DFFAULT  FXFCUTE  CARO 

LINERL,TAPE1,0UTPUT,N0REW,3, 1,1. 

FL  NEEDED  TO  LOAD!  Z7000B 
FL  NEEDED  TO  RUN  t 17000B 
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INPUT/OUTPUT  UNITS 
UNIT  • LFN 


USE 


OUTPUT  LISTA8LE  OUTPUT 

TAPEl  INPUT  OOCJNENT  FILE 


SU8W0UTIN 
PART  0 
ANO 
IFE 
OTHERS 
GET 
IPH 
SET 


E and  function  SUBPROGRAMS  REQUIRED 

F language 

CLCSEM  DATE  FILFSQ 

TCH  OPENM  TIME 

LFNS  - GET  actual  LOCAL  FILE  NAMES 
TV  - FAST  VARIABLE  I-FORMAT  DECODE 

RFW  - OPCODE  REWIND  OPTION 


GET 


arithmetic  STATEMENT  FUNCTIONS 

LllFMT  - FAST  L-FORMAT  DECODE  (LEFT-AOU,  ZERO-FILLED) 

AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1892.2 

DATE  WRITTENI  08/31/76 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UT I L IT YP. , I D=C 3 YS 

OBJECT 

EOITLIB  USER  LIBRARYl  UTILITY 


08/31/76 
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PROGRAM  'LISTBIN* 


r 


P'JRPOSF 

LIST  RELOCATABLE  BINARY  MODULES  IN  ONE  OR  MORE  FILES 

functional  category*  Q7 

language*  fortran  IV  EXTENDEO 

rema;  ks 

input  file  is  processed  until* 

A)  SPECIFIED  NUMBER  OF  FILES,  OR 
B>  DOUBLE  EOF 

EXECUTION 

FROM  batch 

attach, TAPEl , . . . (FILE  TO  BE  LISTED) 

BEGIN, utility , ,LISTBIN. 

FROM  tty 

ATTACH,UTILITY. 

LIBRARY, UTILITY. 

ATTACH,TAPE1  , . . . 

CONNECT, OUTPUT. 

LISTBIN. 

EXECUTE  CARD  PARAMETERS 

LIST  BIN, INFILE, OUTPUT, NFILES,REW, EX  TEND, ALPHA. 

TNFILE  - FILE  TO  BE  LISTED 

OUTPUT  - PRINTER  OUTPUT 

NFILES  - NUMBER  OF  FILES  TO  BE  LISTED 
(OMITTED  OR  INVALID  = 1 FILE) 

(NOTE*  PROCESSING  HILL  STOP  IF  OOUBlE 
EOF  READ  BEFORE  SPECIFIED  NUMBER  OF  FILES) 
REW  - REHIND  OPTION  FOR  TAPEl 

A - REWIND  AFTER  USE 

B - REWIND  BEFORE  USE 

P - REWIND  BEFORE  AND  AFTER  USE 

U - REWIND  BEFORE,  REWIND  AND  UNLOAD 

AFTER  USE 

OTHER  - NO  REWIND  (DEFAULT) 

(Any  words  beginning  with  these  letters  will 

PRODUCE  THE  SAME  RESULTS) 

EXTEND  - OMITTED  OR  'NO*  - DO  NOT  LIST  DATE,  TIME, 

OS,  ETC. 

ANYTHING  ELSE  - LIST  DATE,  TIME,  OS,  ETC. 
(OMIT  FOR  TTY  AS  OUTPUT  IS  MORE  THAN  72 
CHARACTERS) 

ALPHA  - ALPHABETICAL  LIST  OF  OBUECT  MODULES  OPTION 
OMITTED  - NO  ALPHABETICAL  LIST 
TTY  - ALPHABETICAL  LIST  TO  FU  TTY 

OTHER  - WIDE  PAGE  LIST 

default  execute  CApq 

LISTBIN, TAPEl,OUTPUT,l,NOREWI NO. 


(FILE  TO  BE  LISTED) 

OR  LISTBIN,, ANY. 

ROUTE, any ,DC  = PR,  .... 
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LISTBIN 
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OFFfl'JLT  PLI  SOOO  LINES 


FL  NEEPED  to  LOAOt  TIOJGB 
FL  NEEOFO  TO  RUN  t 210Q0B 

(PROG'^AM  ADJUSTS  CORE  UP  AND  DOWN  AS  REQUIRED) 

INPUT/OUTPUT  UNITS 

UNIT  » L='N  USE 


OUTPUT  LISTABLE  OUTPUT 
1 TAPEl  FILF  to  be  LISTED 

METHOD 

1)  IF  requested,  file  is  REHOJNO. 

2)  THE  FIRST  ?00  WORDS  OF  EACH  LOGICAL  RECORD  ARE  READ  IN. 
2A)  WORD  1 IS  TESTED  FOR  PRFK  TABLE  (WORD  0 OF  TAB.E 

STARTS  7T00B).  IF  NOT,  THIS  IS  NOT  AN  OBJECT  MODULE, 
FIRST  «»  WORDS  ARE  PRINTED  (PRECEDED  BY  *>*). 

IT  IF  IS  AN  OBJECT  MODULE,  THE  NAME  IS  TAKEN  FROM 
CHARACTERS  1-7  OF  WORD  1 OF  THE  PREFIX  TABLE. 

2B)  TEST  FOR  PRESENCE  OF  PIOL  (3403),  ASCM(5000), 

APCM(5300)  OR  EAPCM  (5400)  TABLES  AND  GET  OVERLAY 
NUMBER  AND  ROUTINE  LENGTH,  IF  POSSIBLE. 

20  GO  BACK  TO  2)  UNTIL  SPECIFIED  NUMBER  OF  EOF'S  OR 
DOUBLE  EOF. 

I)  IF  REQUESTED,  THE  FI^E  IS  REWOUND  OR  UNLOADED. 

REFERENCEt  60344200  - LOADER  REFERENCE  MANUAL  - CHAPTER  8 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

DATE  LENGTH  MOD  RECOVR  REMARK 

SHIFT  TIME  UNIT 

PART  OF  LANGUAGE 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 

PRT3L  - PRINT  ONE  PAGE  OF  ALPHABETICAL  LIST 
OTHERS 

ASORTMV  - SORT  2-DIMFNSIONAL  ARRAY  USING  MOVLEV 

GETLFNS  - GET  ACTUAL  FILE  NAMES 

IPMTV  - FAST  I-FORMAT  DECODE 

REDUCE  - ADJUST  CORE  UP  AND  DOWN 

SETREW  - DECODE  REWIND  OPTION 

UNLOAD  - RETURN, TAPEl. 

arithmetic  statement  FUNCTIONS 

FAST  A-FORMAT  DECOOE  (LEFT-AOJ,  BL A N K-FI LL FO) 

A71FMT 

FAST  L-FORMAT  DECODE  (LEFT-AOJ,  ZERO-FILLED) 

L21FMT  L38FMT  L71FMT 

FAST  R-FQRMAT  decode  (RIGHT-ADJ,  ZERO-FILLED) 

R13FMr  R14FMT  221^MT  R23FMT  R35FMT 

R33FMT  R47FMT  R51EMT  R56FMT 


03/30/77 
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DTNSRD3  CODE  1892.2 


r 


AUTHOR 

OAVIO  V SOMMER  - 

OATE  HRITTENJ  11/18/74 

OATE(S)  REVISED 
01/14/75 
03/26/75 
04/30/75 
03/03/76 
06/23/76 

12/13/76  - ADD  54-TABLE  PROCESSING 
03/30/77  - ADD  ALPHABETICAL  LIST  OPTION 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARYI  UTILITYPl , ID=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY*  UTILITY 


03/30/77 
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PROGRAM  'LlSrCMP* 


I 


PURPOSE 

LIST  AN  UPDATE  COMPILE  FILE,  EACH  DECK  BEGINNING  ON  A NEW 
PAGE  WITH  A BANNER  PAGE  PRECEDING  IT 

functional  CATEGORIES!  Q7  01 

REMARKS 

A NEW  DECK  BEGINS! 

A)  AFTER  ENO-OF-SECTION  OR  END-OF-PARTITION; 

B)  WITH  CHANGE  OF  DECK  NAME  (COL  74-82)  ONLY  IF  PREVIOUS 

CAPO  WAS  FORTRAN  END  CARO  (•  END  • IN 

COL  1-20)  OR  COMPASS  END  CARD  ('END  » IN  COL  11-14). 

THE  CONDITIONS  FOR  8)  ALLOW  DECKS  TO  HAVE  ’COMOECK  CALLS 
WITHOUT  TRIGGERING  A NEW  DECK.  (*COMOECK  CALLS  HAVE  THE 
COMDECK  NAME  IN  74-82,  WHICH  IS  USUALLY  DIFFERENT  FRCM  THE 
MAIN  DECK  NAME.) 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

CLOSEM  FILESO  GET  IFETCH  MOD 

O^ENM  RECOVR  REMARK  SHIFT 

PART  OF  PROGRAM 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 

OTHERS 

BANR  - PRINT  BANNER  PAGE 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 

MFETCH  - READ  WOFD  IN  USER'S  FL 

REDUCE  - REDUCE  CORE  TO  MINIMUM  NEEDED  TO  RUN 

SETREW  - DECODE  REWIND  OPTION 

APITHMETIC  STATEMENT  FUNCTIONS 

A94FMT  - FAST  A-FORMAT  DECODE  (LEFT-ADJ,  BLANK-FILLED) 

LllFMT  - PAST  L-FORMAT  DECODE  (LEFT-ADJ,  ZERO-FILLED) 

L41FMT  - FAST  L-FORMAT  DECODE  (LEFT-ADJ,  ZERO-FILLED) 

LANGUAGE!  FORTRAN  IV 

INPUT/OUTPUT  UNITS 
FORTRAN  LOCAL 
LOGICAL  FILE 

UNIT  NAME  USE 


TAPEl  INPUT  COMPILE  FILE 

OUTPUT  LISTABLE  OUTPUT 


08/22/77 


2-7  3 


LISTCMP 


I OF  2 


EXECUTION 

FPOM  3aT:H 

ATTACH, OLOPL  , . . . 
UPDATE,?,  ... 
ATTACH, utility. 
LIBRARY, UTILITY. 
LISTCMP, COMPILE. 


PROM  TTY 

ATTACH, OLOPL,  ..  .. 
UPDATE,?,.... 

ATTACH, UTILITY. 
LIBPAPY, UTILITY. 
LISTCMP, COMPILE, OUT . 
DISPOSE, OUT, PP=XYY. 

EXECUTE  CARO  PARAMETERS 


INFILE 

OUTPUT 

REW 


LPI 


E, OUTPUT 

,RFW,L 

PI. 

INPUT  IN 

FILE 

LISTABLE 

OUTPUT 

REWIND  0 

PTION 

FOR  COMPILE 

A 

EEWIND 

AFTER  USE 

8 

REWIND 

BEFORE 

USE 

P 

REWIND 

BEFORE 

AND 

(DEFAULT) 

U 

REWIND 

BEFOREi 

, RE 

AFTER 

USE 

OTHER  - 

NO  PEW 

IND 

(ANY  WORDS  BEG 

INNING  V' 

IITH 

PRODUCE 

THE  SA 

ME  RESULTS) 

LINES  PE 

R INCH 

FOR  OUTPUT 

OMITTED 

OR  'El 

GHT'  OP 

*8* 

ANYTHING 

ELSE 

- 6 LPI 

CARO 

., OUTPUT, 

REWIND 

,3. 

file 


AFTER  USE 


AND  UNLOAD 


THESE  letters  WILL 

LISTING 
- 8 LPI 


FL 

PL 


NEEDED  TO  LOAOl  31000B 
NEEDED  TO  RUN  I 21300B 
(PROr.'^AM  P.EOUCES  TO  MINIMUM 


NEEDED  TO  RUN) 


author 

DAVID  V SOMMER  - NSROC  CODE  1392.2 
DATE  WRITTEN)  07X09/75 

date(S)  revised 

01/07/76 


LOCATION  OP  DECKS 
SOURCE 

UPDATE  LIPRAPYI  UT IL ITYPL , I a=C3Y S 
OBJECT 

EDITLIB  USER  LIBRARY!  UTILITY 


i 

i 


01/07/76 


2-7L 


LISTCMP 


2 OE  2 


PROGRAM  ‘LISTEOI 


PURPOSE 

LIST  a FILE  INSERTING  *EOR,  *EOF,  *EOI  WHERE  ftPPROPRIftTE 
FUNCTIONAL  CATEGORY!  01 
REMARKS 

LISTING  IS  TO  FNO-OF-INFORHATION, 

»ECORO  LENGTH  IS  UP  TO  90  CHARACTERS. 

SU0=>0UTINE  ANO  FUNCTION  SUOPROGRAM5  REQUIRED 
OART  OF  language 

CLOSEM  CONNEC  FILESQ  GET  IFETCH 

OPENM  RFCOVR  REMARK  SHIFT 

PART  OF  PROGRAM 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 

OTHERS 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 
MSETFIT  - SET  FTN  FIT  FIELD 
SETREW  - DECODE  REWIND  OPTION 

ARITHMPTIC  statement  FUNCTIONS 
NONE 

INPUT/OUTPUT  UNITS 

UNIT  n LFN  USE 


5 ZZTTY  TTY  OUTPUT 

OUTPUT  PRINTER  OUTPUT 

TAPEl  FILE  TO  BE  LISTED 

EXECUTION 

'^ROM  BATCH 

ATTACH, UTILITY. 

LIBRARY, UTILITY. 

ATTACH, TAPEl,  . . . (FILE  TO  BE  LISTED) 

LISTEOI. 

'^ROM  TTY 

ATTACM, UTILITY. 

LIBRARY, UTILITY. 

ATTACH, TAPEl,  . . . (FILE  TO  BE  LISTED) 

LISTEOI ,, OUT. 

ROUTE,OUT,OC=PR,.... 


LISTEOI 


1 OF  2 


EXECJTE  :ftRQ  PARAMETERS 

LISTE0I,INFILE,0UTP'JT,REW,»AGING. 

INFILE  - INPUT  FILE  TO  3E  LISTEO 

OUTPUT  - LISTABLE  OUTPUT 

REW  - INFILE  REWIND  OPTION 

A - REWIND  AFTER  USE 

8 - rewind  before  use 

R - rewind  3EF0RE  AND  AFTER  USE 

u - rewind  before,  rewind  and  unload 

AFTER  USE 

other  - NO  REWIND  (DEFAULT) 

CANY  WORDS  STARTING  WITH  THESE  LETTERS  WILL 
PRODUCE  THE  SAME  RESULTS) 

PAGING  - IF  OMITTED  OR  'NEWPAG*,  EACH  FILE  STARTS 
ON  A NEW  PAGE. 

IF  ANYTHING  ELSE,  CONTINUE  ON  SAME  PAGE. 

DEFAULT  EXECUTE  CARO 

LISTEOI , TAPE  1 , OUTPUT, NOREWI NO, NEWPAG. 

PL  NEEDED  TO  LOAD!  300009 
FL  NEEDED  TO  RUN  I 200Q0B 

AUTHOR 

DAVID  V SOMMER  - NSRDC  CODE  1992.2 

DATE  WRITTENt  05/29/74 

OATE(S)  REVISED 
05/29/75 
04/06/76 

LOCATION  OF  OFCKS 
SOURCE 

UPDATE  LIBRARY!  UT IL ITYPL, IO=CSYS 
OBJECT 

EDITLI8  USER  LIBRARY!  UTILITY 


04/06/76 


2-76 


LISTEOI 


2 OF  2 


PROGRAM  'LISTZ* 


PURPOSE 

LIST  ZERO  BTTE  TERMINATED  RECORDS  (UP  TO  110  CHARACTERS  PER 
RECORO)  WITH  RECORD  NUMBER  AND  RECORD  LENGTHS 

FUNCTIONAL  CATEGORYI  01 


LANGUAGE!  FORTRAN  IV  EXTENDED 

REMARKS 

NONE 

EXECUTION 

FROM  BATCH 

ATTACH, TAPEl, ..  ..  FILE  TO  BE  LISTED 

BEGIN, UTILITY,, LISTZ. 

FROM  TTY 

ATTACH, TAPEl,  ..  ..  FILE  TO  BE  LISTED 

BEG  IN, UTILITY,, LISTZ,, OUT. 

ROUTE, OUT, DC  = PR,.c.  . 


EXECUTE  CARO  PARAMETERS 

LISTZ,INFILE,0UTPUT,REH, LPI ,START ,INCR. 


INFILE 

OUTPUT 

REW 


LPI 


START 


INCR 


INPUT  FILE  TO  3E  LISTED 
LISTABLE  OUTPUT 
iNFILE  REWIND  OPTION 
A - REWINO  AFTER  USE 

8 - REWINO  BEFORE  USE 

R - REWIND  BEFORE  AND  AFTER  USE 

U - REWIND  BEFORE,  REWIND  AND 

UNLOAD  after  USE 
OTHER  - NO  REWIND  (DEFAULT) 

(ANY  WORDS  STARTING  WITH  THESE  LETTERS  WILL 
PRODUCE  THE  SAME  RESULTS) 

(IF  ABEND,  INFILE  IS  NOT  REWOUND) 

LINES  PER  INCH 

6 - 6 LINES  PER  INCH 

ANYTHING  ELSE  - 8 LINES  PER  INCH  (DEFAULT) 
STARTING  LINE  NUMBER  (DEFAULT)  1) 

(USE  'E*  FOR  standard 
START=100,  INCR=10) 

(USE  *U'  FOR  standard 
START=Z,  INCR=1) 

LINE  NUMBER  INCREMENT 
(IF  START=E,  INCR=10; 

IF  START=U,  INCR=1) 


EDITOR  SEQUENCING) 
UPDATE  SEQUENCING) 


(DEFAULT)  1) 


default  execute  CARO 

LISTZ, TAPE 1, OUT PUT, NOREW, 8, 1,1. 


FL  NEEOFO  TO  LOAD) 
PL  NEEDED  TO  RUN  ) 


30000B 

20000B 


08/22/77 


2-77 


LISTZ 


1 OF  2 


INPUT/OUrPUT  units 
UNIT  # LFN 


OUTPUT 

T4PE1 


LISTABLE  OUTPUT 

INPUT  FILE  TO  BE  LISTEO 


SUBROUTINE  ''NO  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 

CLOSER  DATE  FILESQ  GET  IFETCM 

MAXO  OPENR  RECOVR  REMARK  TIME 

PART  OF  PROGRAM 

EOU  - ABNORMAL  TERMINATION  ROUTINE 

OTHERS 

GETLFNS  - GFT  ACTUAL  LOCAL  FILE  NAMES 
IFMTV  - FAST  I-FORMAT  DESODE 

LASTC  - FIND  LAST  NON-BLANK  CHARACTER  IN  ARRAY 
SETREW  - DECODE  REMIND  OPTION 

A-’ITHMETIC  statement  FUNCTIONS 

L51FMT  - FAST  L-FORMAT  DECODE  (LEFT-ADU,  ZERO-FILLED) 


author 

DAVID  V SOMMER 


DTNSROC  CODE  1392.2 


DATE  WRITTEN)  OA/12/76 
DATEIS)  REVISED 

0f}/ll/7f>  - ADD  LINFS  PER  INCH  OPTION 
07/29/76  - ADD  START  AND  INCREMENT  OPTIONS 
09/30/76  - ADD  RECORD  LENGTH  TO  PRINTOUT 
12/l<»/76  - PROCESS  TO  EOI 
02/04/77  - ADD  START=E,  START=U 
02/22/77  - INCREASE  LINE  LENGTH  TO  13 
05/06/77  - ADO  OAYFILE  MESSAGE  WITH  # LINES 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UT I L IT Y P. , I D= CS YS 

OBUECT 

EOITLIB  USER  LIBRARY!  UTILITY 


LONGEST  LINE 


05/06/77 


2-73 


LISTZ 


2 OF  2 


P'^.OGPAM  'LISTl* 


PURPOSE 

LIST  (CENTEREO)  ONE  COPY  OF  CAROS  (UP  TO  90  CHARACTERS) 
HAVING  CARRIAGE  CONTROL  IN  COLUMN  1.  OPTIONALLY  PRINT  CARD, 
PAGE  AND  LINE  COUNTS  ANO  LINE  LENGTHS. 


FUNCTIONAL  CATEGORY:  01 

language:  FORTRAN  IV  EYTENOEO 


REMARKS 

WHEN  LINES  PARAMETER  OMITTEO,  LISTl  WILL  LIST  THE  FORI 
CENTERED  ON  WIDE  PAPER. 


WHEN  LINES  PARAMETER  SPECIFIED,  IN  AOOITION  TO  PRINTING  THE 
FORM,  THE  CARO  NUMBEF,  “AGE  NUMBER  OF  THE  FORM,  ANO  LINE 
NUMBER  ON  THF  PAGE  APE  PRINTED  IN  FRONT  OF  THE  LINE  ANO  THE 
LINE  LENGTH  (POSITION  OF  THE  LAST  NON-BLANK  CHARACTER)  IS 
PRINTED  AFTER  EACH  LINE.  LINES  LONGER  THAN  A SPECIFIED 
LENGTH  MAY  BE  FLAGGED. 


EYECUTION 

FROM  BATCH 

BEG IN,UTILITY,, LISTl, INPUT, 
* 7/8/9  EOR 

(CARDS  TO  BE  LISTED) 

" 6/7/8/g  EOF 


FROM  TTY 

ATTACH,IN,....  (FILE  TO 
BEGIN, UTILITY, , LISTl, IN, OUT . 
ROUTE, OUT, DC=PR,.... 


BE  LISTED) 


EXECUTE  card  PARAMETERS 

LISTl , INFILE, OUTPUT, REW, LINES, ST ART, I NCR, FLAG. 


INFILE 

OUTPUT 

REW 


INPUT  FILE  TO  BE  LISTED 
LISTABLE  OUTPUT 
INFILE  REWIND  OPTION 


A 

8 

R 

U 


REWIND  AFTER  USE 
REWIND  BEFORE  USE 
REWIND  BEFORE  ANO  AFTER  USE 
REWIND  BEFORE,  REWIND  ANO  UNLOAD 
AFTER  USE 


08/2R/77 


OTHER  - 

NO 

REWIND  (DEFAULT) 

(ANY  WOR 

OS 

BEGINNING 

WITH  THESE 

LETT 

ERS 

WILL 

PRODUCE 

THE  SAME  RESULTS) 

LI 

NES 

- OPTION  T 

0 

PRINT  CARD, 

PAGE  and  L 

INE 

COUN 

TS 

OMITTED 

OR 

'NOLINE*  - 

00  NOT  PRI 

NT  C 

OJNT 

S 

ANYTHING 

E 

LSE 

PRINT  COUN 

TS 

ST 

ART 

- STARTING 

CARD  COUNT  ( 

WHEN  COUNTS 

PRI 

NTEO 

) 

(DEFAULT 

t 

1) 

IN 

CR 

- CARO  COU 

NT 

INCREMENT 

(WHEN  COUNT 

S PR 

INTE 

D) 

(OEFAULT 

: 

1) 

fl 

AG 

- FLAG  LONG 

lines  (WHEN 

COUNTS  PRI 

NTEO 

) 

OMITTED 

- 

flag  lines 

LONGER  THAN 

72 

CHAR 

1-90 

- 

■^LAG  -INES 

-ONGER  THAN 

THI 

S 

other 

- 

DO  NOT  FLAG 

LINES 

2-79 

LISTl 

- 

1 0 

F 3 

DEFAULT  EXECUTE  CARO 

LIST 1,TAPE1, OUTPUT, U0REH,N3L I NE,1 ,1,72. 

FL  NEEDED  TO  LOAC«  30000B 
FL  NEEDED  TO  RUN  I 20000B 

DATA  CAROS 

COL  CONTENTS 


1 CARRIAGE  CONTROL 

1 - NEW  PAGE 

SPACE  - NEXT  LINE 

0 - LEAVE  1 BLANK  LINE 

- LEAVE  2 BLANK  LINES  (NOT  FOR  200UT> 

♦ - PRINT  ON  SAME  LINE 

2-00  LINE  TO  BE  PRINTED 

INPUT/OUTPUT  UNITS 

UNIT  » LFN  use 


OUTPUT  LISTABLE  OUTPUT 

TAPEl  INPUT  FILE  TO  BE  LISTED 

OAYFILE  number  OF  RECORDS  AND  LONGEST  LINE 

subroutine  and  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

AND  CLOSEM  FILESQ  GET  IFETCH 

MAXO  OPENM  OR  RECOVR  REMARK 

PART  OF  PROGRAM 

EOJ  - abnormal  TERMINATION  ROUTINE 

OTHERS 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 
IFMTV  - FAST  1-FORMAT  DECODE 
LASTC  - FIND  LAST  NON-BLANK  IN  ARRAY 
SETREW  - DECODE  REWIND  OPTION 

ARITHMETIC  STATEMENT  FUNCTIONS 

LllFMT  - FAST  L-FORMAT  DECODE  (LEFT-AOJ,  ZERO-EILLE 
R92FMT  - FAST  R-FORMAT  DECODE  (RIGHT-ADJ,  ZERO-FILL 


m o 


ftUTHOR 

OAVIO  V SOfIMER  - QTNSROC  CODE  1892.2 

DATE  WRITTENI  10/17/73 

OATE(S)  REVISED 
11/1&/73 
12/07/73 
02/03/75 
08/28/75 

09/02/76  - ADD  LINE  OPTION 
09/07/76  - ADO  LINE  LENSTH  PRINTOUT 

05/05/77  - ADD  DAfFILE  MESSAGE  WITH  NUMBER  OF  RECORDS  AND 
LONGEST  LINE 


LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARYI  UTILITYPL , ID=CS YS 
OBJECT 

EOITLIB  USER  LIBRARYI  UTILITY 


05/06/77 


2-81 


LISTl 


PROGRAM  ‘LIST?* 


PURPO'iE 

SINGLE/OOJBLE  SPACE  LISTING,  6 OR  9 LINES  PER  INCH, 

WITH  OPTIONAL  SKIP  OVER  PERFORATION  AT  BOTTOM  OF  PAGE 
(FIRST  120  CHARACTERS) 

FUNCTIONAL  CATEGORYI  01 

LANGUAGE)  FORTRAN  IV  EXTENDED 

REMARKS 

CONTROL  INFORMATION  IS  PASSED  TO  PROGRAM  VIA  EXECUTE 
STATEMENT  OR  FIRST  CARO  OF  INPUT. 

EXECUTION 

FROM  BATCH 

ATTACH, UTILITY. 

LDSET,LIB=UTILrTY. 

LIST2, , ,<PARAMETEPS>. 

7/8/9  EOR 

(DECK  TO  BE  LISTED) 

6/7/9/9  EOP 

FROM  TTY 

ATrACH,FlLE,....  (FILE  TO  BE  LISTED) 

3EGIN,UTILITY,,LIST2,FILE,0UT,<PARAMETERS>. 

ROUTF,OUT,OC=PR,.... 

EXECUTE  CARO  PARAMETERS 

LIST 2, I NPUT, OUTPUT, SPACING, RE W,LP I, PAGING. 

INPUT  - FILE  TO  BE  LISTED 

OUTPUT  - LISTA9LF  OUTPUT 

SPACING  - SPACING/CONTROL  CARO  OPTION 

0 - CONTROL  INFORMATION  IS  ON  FIRST 

CARO  ON  INPUT  FILE 
2 - DOUBLE  SPACING 

OTHER  - SINGLE  SPACING 

REH  - INPUT  REWIND  OPTION 

A - REWIND  AFTER  USE 

9 - REWIND  BEFORE  USE 

R - REWIND  BEFORE  AND  AFTER  USE 

U - REWIND  BEFORE  AND  REWIND  AND 

UNLOAD  AFTER  USE 
OTHER  - NO  REWIND  (DEFAULT) 

(NOTE)  IF  INPUT  FILE  IS  'INPUT*  AND/OR 
SPACING  IS  'O',  'NO  REWIND*  IS  FORCED.) 

LPI  - LINES  PER  INCH 

8 - 8 LINES  PER  INCH 

OTHER  - 6 LINES  PER  INCH  (DEFAULT) 

PAGING  - PAGING  OPTION 

R - SKIP  OVER  PERFORATION  AT  BOTTOM  OF 
PAGE 

OTHER  - DO  NOT  SKIP  (DEFAULT) 

OEFAULT  EXECUTE  CARO 

LIST2,INPUT,0UTPUT,SINGLE,N0REW,6 ,SINGLE,NOSKIP. 


FL  NEEDED  TO  LOflOl  36000B 
FL  NEEDED  TO  RUN  I 26000B 


default  PL*  5000  LINES 

DATA  CARD  (IF  SPaCING=0) 
COL  CONTENTS 


1 SPACING  OPTION 

2 - DOUBLE  SPACING 

OTHER  - SINGLE  SPACING 

2 LINES  PER  INCH 

8 - 8 LINES  PER  INCH 

OTHER  - 6 LINES  PER  INCH 

3 PAGING  OPTION 

R - SKIP  OVER  PERFORATION  AT  BOTTOM  OF 

PAGE 

OTHER  - DO  NOT  SKIP 

input/output  units 

UNIT  i LFN  USE 


INPUT  FILE  TO  BE  LISTED 

OUTPUT  LISTABLE  OUTPUT 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

CLOSEM  FILESQ  GET  IFETCH  OPENM 

RECOVR  REMARK  SHIFT 

PART  OF  PROGRAM 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 
OTHERS 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 
LASTC  - FIND  LAST  NON-BLANK 
SETREW  - OECOOE  REWIND  OPTION 

ARITHMETIC  STATEMENT  FUNCTIONS 

FAST  L-FORMAT  DECODES  (LEFT-ADJ,  ZERO-FILLEO) 

LllFMT  L12FNT  L13FMT 

AUTHOR 

DAVID  V SOMMER  - OTNSROC  CODE  1392.2 

DATE  WRITTEN*  08/15/75 

OATE(S)  REVISED 
08/18/75 

03/21/77  - GENERAL  IMPROVEMENTS 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY*  UTILITYPL, IO=CSYS  i 

OBJECT  i 

EDITLIB  USER  LIBRARY*  UTILITY  I 


03/21/77 


2-83 


LIST2 


2 OF  2 


PROGRAM  •LIST3* 

PURPOSE 

LIST  FIRST  <UP  TO  90-CHARACTER,  ZERO  BfTE  TERMINATED)  RECORD 
IN  EACH  LOGICAL  RECORD  THROUGH  EOI 

FUNCTIONAL  CATEGORY!  01 

REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

CLOSEM  DATE  FILESQ  GET  IFETCH 

OPENH  RECO»!R  SHIFT  TIME 

PART  OF  program 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 
OTHERS 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 
SETREH  - DECODE  REMIND  OPTION 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGE!  FORTRAN  IV 
INPUT/OUTPUT  UNITS 

UNIT  # LFN  USE 


OUTPUT  LISTABLE  OUTPUT 

TAPEl  INPUT  FILE  TO  BE  LISTED 

EXECUTION 

FROM  BATCH 

ATTACH, UTILITY. 

ATTACH,TAPE1,....  (FILE  TO  BE  LISTED) 

LOSET,LIB=UTILITY. 

LIST3. 

FROM  TTY 

ATTACH, UTILITY. 

ATTACHjTAPEl, ....  (FILE  TO  BE  LISTED) 

LIBRARY, UTILITY. 

LI3T3,,OUT. 

ROUTE, OUT, OC=PR,.... 


EXECUTE  CARO  PARAMETERS 

LISTS, INFILE, OUTPUT, REM, EOR. 


INFILE 

OUTPUT 

REM 


FOR 


INPUT  FILE  TO  BE  LISTED 
LISTABLE  OUTPUT 
INFILE  REMIND  OPTION 
A - REMIND  AFTER  USE 

B - REMIND  BEFORE  USE 

R - REMIND  BEFORE  AND  AFTER  USE 

COEFAULTJ 

U • REMIND  BEFORE,  REMIND  AND  UNLOAD 

AFTER  USE  (IF  JOB  ABENDS,  U IS 
changed  TO  R) 

OTHER  - NO  REMIND 

(ANY  MORDS  BEGINNING  MITH  THESE  LETTERS  HILL 
PRODUCE  THE  SAME  RESULTS) 

ONE  OF  THE  FOLLOHINGl 

OMITTED  OR  EOR  - PRINT  EOR/LEVEL  NUMBER 
AND  EOF  ON  SEPARATE  LINE 
EOF  - PRINT  EOR  (MITHOUT  LEVEL  NUMBER)  ON 
DATA  LINE,  EOF  ON  SEPARATE  LINE 
N OR  NO  - DO  NOT  PRINT  EOR/EOF  INFORMATION 
ANYTHING  ELSE  - PRINT  EOR/EOF  ON  DATA  LINE 
(NO  EOR  LEVEL  NUMBER) 


DEFAULT  EXECUTE  CARD 

LIST3,TAPEl, OUTPUT, RE HIND. 

FL  NEEDED  TO  LOAD)  26000B 
FL  NEEDED  TO  RUN  t 17000B 

AUTHOR 

DAVID  V SOMMER  - OTNSROC  CODE  1892.2 

DATE  HRITTENI  11/24/75 

OATE(S)  REVISED 
12/22/75 
03/22/76 

05/13/76  - INCREASE  TO  90  CHARACTERS 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UTILITYPL , IO=CLIB 
OBJECT 

EOITLIB  USER  LIBRARY!  UTILITY 


PROGRAM  'LISTii* 


PURPOSE 

LIST  UNIT  RECORDS,  THRU  EOI , *<HICH  HAVE  *1*  IN  COLUNN  1 

functional  CATEGORYI  01 

REMARKS 

NONE 

subroutine  and  FJNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

CLOSEM  DATE  FILESQ  GET  IFETCH 

OPENN  RECOIIR  SHIFT  TINE 

PART  OF  PROGRAM 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 
OTHERS 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 
lOPEN  - TEST  FOR  RM  FILE  OPEN 
SETREH  - DECODE  REMIND  OPTION 

ARITHMETIC  STATEMENT  FUNCTIONS 

LllFMT  - FAST  L-FORMAT  DECODE  (LEFT-AOJ,  ZERO-FILLED) 

LANGUAGEI  FORTRAN  IV 

INPUT/OUTPUT  UNITS 

UNIT  # LFN  USE 


OUTPUT  LISTABLE  OUTPUT 

TAPEl  INPUT  FILE  TO  BE  LISTED 

EXECUTION 

FROM  BATCH 

ATTACH, UTILITY. 

ATTACH, TAPEl,....  (FILE  TO  BE  LISTED) 

LDSET,LIB=UTILITY. 

LIST4. 

FROM  TTf 

ATTACH, UTILITY. 

ATTACH,TAPE1,....  (FILE  TO  BE  LISTED) 

LIBRARY, UTILITY. 

LIST4,,0UT, 

ROUTE,OUT,DC=PR,.... 


08/22/7r 


2-8B 


HST4 


I OF  2 


EXECUTE  :4R0  PARAMETERS 
LISTii,  INFILE,  OUTPUT,  REM. 


INFILE  - INPUT  FILE  TO  BE  LISTED 

OUTPUT  - LISTABLE  OUTPUT 

REM  - INFILE  REMIND  OPTION 

A - REMIND  AFTER  USE 

9 - REMIND  BEFORE  USE 

R - REMIND  BEFORE  AND  AFTER  USE 

<OEFAJLT» 

U - REMIND  BEFORE,  REMIND  AND  UNLOAD 

AFTER  USE 
OTHER  - NO  REMIND 

(ANY  MOROS  BESINNIN5  MITH  THESE  LETTERS  MILL 
PRODUCE  THE  SANE  RESULTS) 

DEFAULT  EXECUTE  CARO 

LIST4,TAPE1, OUT PUT, REMIND. 

FL  NEEDED  TO  LOAOl  26000B 
PL  NEEDED  TO  RUN  I 17000B 

AUTHOR 

DAVID  V SDMMER  - OTNSROC  CODE  1392.2 

DATE  MRITTENI  12/22/75 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARYI  UTILITYPL , IO=CL 19 
OBJECT 

EOITLia  USER  LIBRARYI  UTILITY 


12/22/75 

2-87 

LISTL 

- 2 OF  2 

j- 



PROGRAM  'MANYDOC* 


PURPOSE 

EXTRACT  (PRINT!  THO  OR  MORE  DOCUMENTS  FROM  A OOCUMEMTATION 

file 

FUNCTIONAL  CATEGOPVI  Q6 

LANGUAGE!  FORTRAN  IV  EXTENDED  | 

REMARKS  I 

DOCUMENTS  HAY  BE  REQUESTED  IN  ANY  ORDER  BUT  HILL  BE  PRINTED  ] 

IN  THE  OPDER  IN  WHICH  THEY  OCCUR  IN  THE  FILE. 

DOCUMENTATION  FILE  IS  COMPATIBLE  WITH  AN  UPDATE  ’SOURCE* 

FILE  OF  ’DECK'S  ONLY. 

TO  EXTRACT  ONLY  ONE  DOCUMENT,  USE  PROGRAM  'PROGDOC*. 

EXECUTION 

FROM  BATCH 

ATTACH, UTILITY. 

LIBRARY, UTILITY. 

M4NYDOC,LIBRARY,IO, , OUTPUT. 

* 7/8/9  EOR 

(DATA  CAPOS) 

••  6/7/8/9  EOF 

FROM  TTY 

CONNECT, TTY 

8EGIN,UTILITY,,MANYOOC, LIBRARY, ID,  TTY,  OUT,, OUT. 

(ENTER  DATA  CAROS  - THERE  IS  NO  PROMPTING) 

(END  HITH  PERCENT  EOF) 

ROUTE, OUT, OC=PR, ... . 

EXECUTE  CARO  PARAMETERS 

MAN YDOC, LIBRARY, ID, INPUT, OJTF I LE,LEFT,OUTPUT,DOCFIlE. 

LIBRARY  - FIRST  PART  OF  DOCUMENTATION  FILE  PFN. 

FULL  PFN  IS  LIBRARY. DOCUMENTATION. 

ID  - ID  UNDER  WHICH  DOCUMENTATION  IS  CATALOGED 

(DEFAULT!  SYSTEM  PUBLIC  ACCESS  ID) 

INPUT  - INPUT  DATA  CAROS 

OUTFILE  - OUTPUT  FILE  OF  SELECTED  DOCUMENTS 
(MOT  REWOUND) 

LEFT  - PRINT  CENTERING 

OMITTED  OR  'LEFT*  - LEFT-JUSTIFIED  ON  PAGE 
OTHER  - CENTERED  ON  LARGE  PAGE 

(DEFAULT!  LEFT-JUSTIFIED) 

OUTPUT  - SUMMARY  OF  REQUESTS 

(MAY  BE  SAME  AS  OUTFILE) 

OOCFILE  - IF  THE  USER  HAS  PREVIOUSLY  ATTACHED  A 

DOCUMENTATION  FILE,  PLACE  LFN  HERE  AND  OMIT 
THE  FIRST  2 PARAMETERS  ('LIBRARY*  AND  *10'). 

WHEN  THIS  PARAMETER  IS  USED  AND  IS  NOT 
'ZZOOC,  THE  FILE  IS  NOT  RETURNED  AT  END  OF 
EXECUTION. 
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DEFAULT  EXECUTE  CARO 

MA,'4YOOC,»,^ *,  INPUT,  TAPEl,  LEFT,  OUTPUT,  ZZOOC. 

DEFAULT  PLI  15000  LINES 

FL  NEEDED  TO  LOAOl  360008 
FL  NEEDED  TO  RUN  t 260008  MININUH 

(PROGRAM  ADJUSTS  CORE  AS  REQUIRED) 

DATA  CARDS 

COL  CONTENTS 


1-Z  NAME  OF  DESIRED  DOCUMENT 


ERROR  MESSAGES 

DOCUMENTATION  FILE  EMPTY 

FILE  HAS  FOUND  BUT  CONTAINED  NO  INFORMATION 
DOCUMENTATION  FILE  NOT  FOUND 

REQUESTED  DOCUMENTATION  FI.E  IS  NOT  IN  THE  SYSTEM 
NO  DOCUMENTS  FOUND 

NONE  OF  THE  REQUESTED  DOCUMENTS  HAS  IN  THE  FILE 
NO  DOCUMENTS  REQUESTED 

NO  DATA  CARDS  HERE  ENCOUNTERED 


INPUT/OUTPUT  UNITS 
UNIT  * LFN 


USE 


INPUT  DATA  CARO  INPUT  FILE 

OUTPUT  LISTA8LE  OUTPUT  (SUMMARY  OF  REQUESTS) 

TAPEl  OUTPUT  FI-E  OF  SELECTED  DOCUMENTS 

(NOTE!  OUTPUT  AND  TAPEl  MAY  BE  THE  SAME 
FILE) 

ZRECORD  PERMANENT  RECORD  OF  REQUEST 

(ATTACHED  AND  RETURNED  HITHIN  PROGRAM) 
ZZOOC  FILE  containing  DOCUMENTATION 

(ATTACHED  AMO  RETURNED  HITHIN  PROGRAM) 
(IF  USER  REPLACES  THE  FILE  NAME  AT 
EXECUTION  TIME,  THE  FILE  IS  ASSUMED  TO 
BE  ATTACHED  AND  HILL  NOT  BE  RETURNED) 


EXAMPLE 

PRINT  DOCUMENTATION  FOR  PROGRAMS  •MANYOOC*  AND  »PROGDOC»l 
ATTACH, UTILITY. 

LIBRARY, UTILITY. 

MANYOnC,UTIL IT Y,, , OUTPUT. 

• Z/8/9  EOR 

MANYOOC 

PROGOOC 

" 6/Z/8/9  EOF 
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SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

AND  CLOSEM  DATE  EOF  FILESQ 

GET  IFETCH  MOVLEV  OPENM  PUT 

RESOVR  REMARK  SHIFT  TIME 

PART  OF  PROGRAM 

CLOSFIL  - CLOSE  FILES 
COPYDFK  - COPY  ONE  DOCUMENT 
EOJ  - ABNORMAL  TERMINATION  ROUTINE 

FINDECK  - LOCATE  NEXT  ♦DECK  CARO 
GETFIL  - ATTACH, DOCUMENTATION  FILE 
GETIN  - READ  INPUT  DATA  CAROS 
RECORD  - MAKE  PERMANENT  RECORD  OF  REQUESTS 
OTHERS 

CPU46F  - GET  CPU  PROGRAM  IS  RUNNING  ON 

OVSORTA  - SORT  ARRAY 

FINONRO  - SEARCH  ARRAY  FOR  WORD 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 

IDIO  - GET  USER  ID 

ISUMIT  - SUM  INTEGER  ARRAY 

LASTC  - FIND  LAST  NON-BLANK 

MOVSTR  - MOVE  CHARACTER  STRING 

PAKLFT  - SQUEEZE  LEFT  AND  REMOVE  BLANKS 

PUTCHA  - INSERT  CHARACTER 

REDUCE  - ADJUST  CORE  UP  AND  DOWN 

REQUEST  - CALLABLE  REQUEST 

VFILL  - FILL  ARRAY  WITH  NORO 

ZPFUNC  - CALLABLE  PF  FUNCTIONS 

ARITHMETIC  'STATEMENT  FUNCTIONS 

FAST  L-FORMAT  DECODE  (LEFT-AOJ,  ZERO-FILLEO) 
LllFMT  L61FMT  L71FMT 

FAST  R-FORMAT  DECODE  (RIGHT-ADJ,  ZERO-FILLED) 
R51FMT  R56FMT 

AUTHOR 

DAVID  V SOMMER  - OTNSRDC  CODE  1992.2 
DATE  MRITTENI  04/28/77 
OATE(S)  REVISED 

05/05/77  - ADD  CPU  TO  PERMANENT  RECORD 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARYl  UTILITYPL ,I0=CSY3 
OBJECT 

EDITLIB  USER  LIBRARY)  UTILITY 
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PROGRAM  *MPSCM* 


PURPOSE 

CONVERT  PRINTED  OUTPUT  DATA  INTO  A COM  FORMATTED  TAPE  TO 
PRODUCE  MICROFICHE  ON  THE  DATAGRAPHIX  1*530  SYSTEM 

FUNCTIONAL  CATEGORYI  JO 

REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 

PART  OF  PROGRAM 
SHUFL 
OTHERS 
NONE 

LANGUAGE!  COBOL 
INPUT/OUTPUT  UNITS 

lfn  use 


TAPE03  MPS  INPUT  FILE  (NAME  MUST  BE  TAPE03) 
(MAY  BE  DISK  OR  MAGNETIC  TAPE) 

TAPEJ<*  MPS  OUTPUT  FILE  (NAME  MUST  BE  TAPE0<*) 

EXECUTION 

FROM  BATCH 

CXXX,CM55000 ,MT1. 

CHARGE,CXXK, JJJJJJJJJJ. 
ATTACH,TAPE03,PFN,ID=CXXX, 

VSN,TAOE0 A=CBXXXX. 

LABEL,TAPE0**,L  = COMOUT,O=HY,F  = S,RING,R. 

BEGIN, UTILITY, ,MPSCM. 

• 7/8/9  EOR 

(MPS  INPUT  DATA  CAROS) 

" 6/7/8/9  EOF 

FROM  TTY 

NOT  DESIGNED  FOR  TTY  USE 

FL  NEEDFO  TO  LOAOl  55000B 
FL  needed  to  run  I 55000B 


f 


DATA  CAODS 

tMODPA REQUEST  FORMS  FLASH,  CHARACTER  POLARITY,  INDEX 

STATUS 

JMODEN SET  UP  MAX  LINES  PER  PAGE,  FIRST  LINE  OF  OUTPUT 

frame,  FICHE  sequence  number,  frames  per  ROM, 
FRAMES  PER  COLUMN,  GRID  INSERT  LINE,  MAX  OUTPUT 
LINE  LENGTH 

tTITLS SEGMENT  EYF-READABLE  TITLE  (MAX  4) 

tTITLB DEFINE  LITERAL  TO  BE  PRINTED  IN  EYE-READABLE 

TITLF 

ITITLX define  extracted  DATA  FIELDS  TO  BE  PLACED  IN 

EYE-READABLE  TITLE 

SINOXl DEFINE  FIELD  TO  BE  EXTRACTED  FOR  INDEX 

tLASTXl O'iFINE  FIELD  TO  BE  EXTRACTED  FOR  LAST  INDEX 

tBREAK SEQUENCE  NUMBER  OF  ALL  FICHE  SINCE  THE  LAST 

FICHE  BREAK 

JOATAl DEFINE  FIELD  TO  BE  EXTRACTED  FOR  DATAl 

tTRANS DATA  CONTAINS  COLONS 

AEND  END  OF  INPUT 


THE  SYSTEM  DATE  MAY  BE  PRINTED  IN  THE  EVE-READABLE  TITLE  BY 
REQUESTING  KKLLNNN  BEGINNING  IN  COL  68  ON  THE  TITLK  CARO. 

DATA  CARO  COLUMNS 

1. .. S.. . 10*. .15... 20. ..?S. a .JO*. .35*. .40. ..43. a. 50. ..SB. ..60 
. . .63. . . ^0.. .73. .. SO 

5M0DEA  MMA  MMA  MMA  MMA 

tMOOEN  MMNNNN  MMNNNN  MMNNNN  MMNNNN  MMNNNN  MMNNNN  MMNNN 

N MMNNNN 

ITITLS  NNLLLL  NNLLLL  NNLLLL  NNLLLL 

fTITLB  NNLLLL  "LITERAL  DATA" 

tTITLK  KKLLNNN  KKLLNNN  KKLLNNN  KKLLNNN  KKLLNNN  KKLLNNN  KKLLN 
NN 

JINDXI  FF  LL  NNPPPP  MMSSSS  CCCC CCCC 

(LASTX ,8RE AK,OAT A SAME  FORMAT  AS  INOX) 

FOR  DESCRIPTION  OF  VARIOUS  PARAMETERS  SEEI  "COMPUTER  OUTPUT 
MICROFICHE  REFERENCE  MANUAL",  CMD-16-76. 

AUTHORS 

STROM3ERG  OAT AGRAPHICS , INC. 

BARBARA  J DAVIS  - OTNSROC  CODE  1892.1 

DATE  WRITTENI  JULY  1976 

DATE(S)  REVISED 

07/  /76  - SEVERAL  MODIFICATIONS 

08/02/76 

LOCATION  OF  DECKS 
SOURCE 

, CODE  1892.1 

I OBJECT 

EDITLI3  USER  LIBRARY!  UTILITY 
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PROGRAM  'MTOOC* 


PURPOSE 

CREATE  DOCUMEMTATION  TO  DESCRIBE  THE  CONTENTS  OF  A MASNETI 
TAPE 

FUNCTIONAL  CATEGCRYI  06 
REMARKS 

IF  ANY  QUESTION  IS  ANSWERED  WITH  A SINGLE  ENTRY  OF  ? , A 

LONGCER),  MORE  DETAILED  DESCRIPTION  OF  THE  CURRENT  ITEM 
IS  TYPED. 

IF  ANY  QUESTION  {EXCFPT  FOR  •DECK  CARDS  AND  UNDERLINE 
CHARACTER)  IS  ANSWERED  WITH  A SINGLE  ENTRY  OF  a , THE 
CURRENT  DOCUMENT  IS  TERMINATED. 


SUBPOUTINE 
PART  OF 
ANO 

PART  OF 


ANO  FUNCTION 

language 

CONNEC 

PROGRAM 


SUBPROGRAMS  REQUIRED 


RECOVR 


REMARK 


SHIFT 


ANYMOR 

CONTACT 

OECKl 

DENS 

ECHOl 

ENDIT 

EOJ 

GET13 

LABL 

PRMPT 

REi 

RFTENT 
TAPLOC 
TAPNO 
TCREATE 
TOE SCR 
TRJNC 
UNOERl 
OTHERS 
ELTIME 
FSETFIT 
GETLFNS 
IFMTV 
JULIAN 

paklft 

REQUEST 

TRAILBZ 


AS 

K 

IF 

ANY 

MORE 

DO 

AS 

K 

FOR 

PERSON 

TO 

AS 

K 

IF 

•DEC 

K CA 

ROS 

AS 

K 

FOR 

TAP 

E DE 

NSI 

AS 

K 

IF 

ECHO 

DES 

IRE 

DOCUMENTS  TO  BE 
ONTACT  ABOUT 
DESIRED 
Y INFORMATION 


CREATED 
THIS  TAPE 


CLOSE  PROGRAM  ANO  PRINT  SUMMARY 
ABNORMAL  TERMINATION  ROUTINE 

GET  VARIABLE  LENGTH  INFO  ANO  PRINT  IN  COu  13 
ASK  FOR  TAPE  lABEL 

ASK  IF  LONG/SHORT  PROMPTING  DESIRED 

ASK  FOR  ANY  REMARKS 

ASK  FOR  RETENTION  PERIOD 

ASK  EOR  TAPE  LOCATION  (6700  ROOM,  ETC) 

ASK  FOR  TAPE  NUMBER  (CA9B99,  ETC) 

ASK  FOR  CREATION  DATE 

ASK  FOR  DESCRIPTION  OF  TAPE  CONTENTS 
PRINT  TPUNCATED  MESSAGE 
ASK  WHICH  UNDERLINE  CHARACTER 


TIMING  ROUTINE 
SET  FTN  FIT  VALUES 
GET  ACTUAL  LOCAL  FILE  NAMES 
FAST  VARIABLE  LENGTH  I-FORMAT 
GREGOPIAN/JULIAN 
SQUEEZE  LEFT  ANO 
REQUEST, OOCMNT,*PF. 

CHANGE  TRAILING  BLANKS  TO  OOB 


DESIRED 


DECODE 

DATE  CONVERTER  ( S I NGL E- Y EA R) 
REMOVE  blanks  AND  OOB 
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MTOOC  - i OF 


ftRITHMenC  STATEMFNT  FUNCTIONS 
FAST  I-FORMAT  DECODE 
rilFMT 

FAST  L-FORMAT  DECODE  CLEFT-AOJ,  ZERO-FILLED) 

LllFMT  L14FHT  L2ZFMT  L25FHT  L61FHT 

FAST  R-FORMAT  DECODE  (RIGHT-ADJ,  ZERO-FILLED) 
R13FMT  R56FMT 

LANGUAGE!  FORTRAN  IV 

METHOD 

TTY  IS  PROMPTED  FOR  EACH  SECTION  OF  THE  DOCUMENT. 


INPUT/OUTPUT  UNITS 
UNIT  » LFN 


USE 


1 ZZTTYI 

4 OOCMNT 

5 ZZTTYO 
OUTPUT 

EXECUTION 

FROM  3ATCH 

NOT  DESIGNED  FOR 


TTY  INPUT 

CREATED  DOCUMENTS  (ON  PF  SPACE) 

TTY  PROMPTER 

FTN  ERROR  MESSAGES 


HATCH  USE 


FROM  TTY 

BEGIN, UTILITY, ,MTDO 
(TTY  IS  PROMPTED 
CATALOG, OOCMNT, ..  .. 


r 


OR  ALl.  INPUT) 
AND/OR 


MODIFY  USING  EDITOR 


EXECUTE 

MTDOC 

DO 

QU 


CARO  PARAMETERS 
, OOCMNT, QUICK. 

CMNT  - CREATED  DOCUMENT(S) 

(MAY  BE  CATALOGED) 

ICK  - *0*  - DO  NOT  PRINT  INITIAL  DESCRIPTION; 

GIVE  SHORT  PROMPT  FOR  FIRST 
QUESTIONS 

OTHER  - PRINT  INITIAL  DESCRIPTION  AND  LONG 
PROMPTING  FOR  FIRST  QUESTIONS 
NOTE!  OMIT  UNTIL  YOU  ARE  USED  TO  THE 
PROGPAM,  THEN  USE  Q. 


DEFAULT  EXECUTE  CAPO 
MTDOC , OOCMNT . 

FL  NEEDED  TO  LOAD!  35000B 
FL  NEEDED  TO  RUN  ! 250Q0B 
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DftTA 

THE  FOLLOWING  INFOKWflTION  IS  ^F3UFSTE0  ONCE  PER  EXECUIIONI 

1 - DO  YOU  WANT  UPDATE  *OEC<  CARDS  GENERATED  BEFORE  EACH 

DOCUMENT?  ENTER  Y FOR  YES,  N FOR  NO. 

2 - WHICH  UNDERLINE  CHARACTER  DO  YOU  WANT? 

ENTER  I FOR  UNDFRSCORE  (.)  OR  2 FOR  HYPHEN  (-). 

THE  FOLLOWING  INFORMATION  IS  REQUESTED  FOR  EACH  OOCUMENTl 

3- 00  YOU  WANT  ALL  ENTRIES  ECHOED?  (Y  FOR  YES,  N -OR  NO) 

4- 00  YOU  WANT  THE  LONG  OR  SHORT  FORM  OF  THE  PROMPTING 
MESSAGES?  ENTER  L FOR  LONG,  S FOR  SHORT. 

5 - TAPE  NUMBER  (1-G  CHARACTERS)  (E.G.,  CA9999) 

6 - tape  label  (4-1  characters;  blank  for  UNLABELLEO) 

7 - DENSITY  INFORMATION  (6  CHARACTERS,  AS  FOLLOWS) 

1 - 7 (FOR  7-TRACK)  OR  9 (FOR  9-TRACK) 

2-3  - DENSITY  (LO,  HI,  HY,  HD) 

4 - S7L/BLANK  (FOR  STRANGER/LONG/SCOPE) 

5-6  - EB/8LANK  (EB  ON  9-TRACK  ONLY) 

(OEFAULTI  »7HY  •) 

8 - LOCATION  OF  TAPE 

4/6/7  FOR  6400/6600/6700  ROOM  OR 
DESCRIBE  THE  LOCATION  (1-53  CHARACTERS) 

9 - CREATION  DATE  (WHEN  LABEL  WAS  WRITTEN;  MAY  BE  .ODD 

OR  MM/OD/YY 

10  - RETENTION  PERIOD  (AS  SPECIFIED  ON  LABEL  CARD)  <1-999 

DAYS  OR  BLANK  (7  DAYS)  ( LEFT- JUSTIFIED) ) 

11  - NAME  OF  PERSON  RESPONSIBLE  FOR  CONTENTS  OF  TAPE 

Any  number  of  l-  to  60-CHARACTER  lines,  end  with  a 
SINGLE  ENTRY  OF  SEMI-COLON  (»). 

12  - REMARKS.  USE  THIS  SECTION  FOR  ANY  REMARKS  ABOUT  THE 

TAPE  OR  ITS  CONTENTS.  YOU  MAY  WANT  TO  GIYE  THE  TAPE 
HISTORY.  NOTE!  TAPE  CONTENTS  IS  ENTERED  IN  RESPONSE 
TO  THE  NEXT  QUESTION.  ANY  NUMBER  OF  1-  TO 
60-CHARACTER  LINES.  END  WITH  A SINGLE  ENTRY  OF 
SEMI-COLON  (»). 

13  - TAPE  CONTENTS.  ANY  NUMBER  OF  1-  TO  60-CHARACTER 

LINES.  END  WITH  A SINGLE  ENTRY  OF  SEMI-COLON  (»). 
HEADINGS  ARE  PROYIOEO  FOR  FILE  NUMBER,  RECORD  NUMBER 
AND  CONTENTS  OF  THE  RECORD. 

14  - END  OF  DOCUMENT.  DO  YOU  WANT  TO  DO  ANOTHER? 

(Y  FOR  YES,  N FOR  NO) 

AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1392.2 

DATE  WRTTTENl  06/18/76 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UTILITYPL , ID=CSYS 
OBJECT 

EDITLIB  USER  LIBRARY!  UTILITY 


06/30/76 
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P<^OGRIVM  •PRGEPRT* 


PURPOSE 

ORINT  SELECTEO  PAGE(S)  FROM  A DOCUMENT 
FUNCTIONAL  CATEGORIES!  SO  01 
REMARKS 

IF  MORE  THAN  ONE  PAGE  REQUESTED,  THEY  MUST  BE  IN  ORDER, 

AS  THE  noCUMENT  FILE  IS  SEARCHED  ONLY  ONCE. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGF 

CLOSEM  EOF  FILESQ  GET  IFETCH 

OPENM  RECOYR  REMARK  SHIFT 

PART  OF  PROGRAM 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 

OTHERS 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 
lOPEN  - TEST  FOR  RM  FILE  OPEN 
REPLAC  - REPLACE  ONE  CHARACTER  KITH  ANOTHER 
SETPEW  - DECODE  REWIND  OPTION 

ARITHMETIC  STATEMENT  FUNCTIONS 
A105FMT  - FAST  A-FORMAT  DECODE 

LllFMT  - FAST  L-FORMAT  DECODE  (LEFT-ADJ,  ZERO-FILLED) 
L71FMT  - FAST  L-FORMAT  DECODE  (LEFT-ADJ,  ZERO-FILLED) 

LANGUAGE!  FORTRAN  IV 

METHOD 

HEADER  LINES  (*1*  IN  COLUMN  ONE)  ARE  SEARCHED  FOR 
•PAGE'  IN  COLUMNS  60-63.  THE  PAGE  NUMBER  MUST  BE  IN 
COLUMNS  65-ZA.  LINES  ARE  COPIED  UNTIL  A NEW  HEADER 
LINE  IS  ENCOUNTERED. 

FNO-OF-RFCORD  IS  IGNORED?  END-OF-FILE  OR  END-OF-INFORMATION 
WILL  END  THE  PROGRAM. 

INPUT/OUTPUT  UNITS 

UNIT  • LFN  USE 


5 INPUT  OPTIONAL  DATA  CARDS 

CCRM  INPUT  DOCUMENT  FILE 

OUTPUT  LISTABLE  OUTPUT 


EXECUTION 

FROM  BATCH 

ATTACH, UTILITY. 

ATTACH, TAPEl,  ..  ..  (DOCUMENT  FILE) 

LQSET,LI3=UTILITY. 

PAGEPRT,.... 

Z/^/9 

(DATA  CAROS.  IF  NONE,  NO  Z/3/9  IS  REQUIRED) 
6/Z/8/9 
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PftSEPRT,TnPEl,0,OUT,R,tl-14l.  (PRIHT  PAGE  1-14) 

ROUTE,OUT,OC=PR,.... 

— OR— 

ATTACHjTAPEl,....  (DOCJMENT  FILE) 

ATTACH, UTILITY, 

LISRARY, UTILITY. 

CONNECT, INPUT. 

PAGEPRT,TAPE1,0 ,OUT. 

(ENTER  PAGE  NUMBERS,  ONE  AT  A TIME,  END  WITH 
PERCENT  EOF) 

ROUTE, OUT, OC=PR, ... . 

EXECUTE  CARO  PARAMETERS 

PAGEPRT, I NFILE, 1 0, OUTPUT, RE W, PAGE, INPUT. 

INFILE  - INPUT  DOCUMENT  FILE 
ONE  OF! 

.1-7  CHARACTER  PFN  OF  DOCUMENT  FILE  TO  BE 
ATTACHED  BY  PROGRAM; 

.1-7  CHARACTER  LFN  OF  ALREADY  ATTACHED  FILE; 
.OMITTED  FOR  COMPUTER  CENTER  REFERENCE 
MANUAL. 

ID  - ONE  OFI 

.10  OF  DOCUMENT  FILE  TO  BE  ATTACHED  BY  PROGR 

program; 

.0,  IF  DOCUMENT  FILE  ALREADY  ATTACHED; 
.OMITTED  FOR  COMPUTER  CENTER  REFERENCE 
MANUAL,  OR  ANY  OTHER  FILE  WITH  SYSTEM 
PUBLIC  ACCESS  ID. 

OUTPUT  - LISTABLE  OUTPUT 

REW  - INFILE  REMIND  OPTION 

A - REWIND  AFTER  USE 

B - REMIND  BEFORE  USE 

R - REMIND  BEFORE  ANO  AFTER  USE 

(DEFAULT) 

U - REMIND  BEFORE,  REMIND  ANO  UNLOAD 

AFTER  USE  (FORCED  IF  BOTH  INFILE  ANO 
ID  OMITTED) 

OTHER  - NO  REMIND 

(ANY  WORDS  BEGINNING  WITH  THESE  LETTERS  WILL 
PRODUCE  THE  SAME  RESULTS) 

PAGE  - IF  OMITTED,  PAGE  NUMBERS  READ  FROM  FILE 

INPUT. 

IF  SPECIFIED,  THIS  IS  A 1-7  CHARACTER  PAGE 
NUMBER  (ENCLOSE  IN  * IF  ANY  SPECIAL 
CHARACTERS)  . 

INPUT  - DATA  CARO  INPUT  FILE,  USED  ONLY  IF  PAGE 
PARAMETER  OMITTED. 
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GEFAULT  EXECUTE  CARO 

PAGEPRT  ,*  ,«‘*t  our  PUT,  rewind,  , INPUT  . 

• - C01PUTEK  CENTER  REFERENCE  NANUAL 

•*  - SYSTEH  PUBLIC  ACCESS  10 

FL  NEEDED  TO  LOADI  320308 
F.L  NEEDED  TO  RUN  t 23000B 

OATA  CAROS  (ONLY  IF  PAGE  PARAMETER  OMITTED) 

COL  CONTENTS 


1-10  PAGE  NUMBER 
AUTHOR 

OAVIO  V SOMMER  - DTNSROC  CODE  1892.2 

□ATE  WRITTEN!  02/09/7B 

OATE(S>  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UOOATE  LI9RARYI  UTILITYPL , IO=C3 YS 

OBJECT 

EDITLIB  USER  LIBRARY!  UTILITY 


02/09/7B 
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1 

i 

PURPOSE 

CREATE  permanent  FILE  DOCUMENTATION 
FUNCTIONAL  CATEGORYt  Q6 
REMARKS 

IF  ANY  OUESTION  IS  ANSWF.RED  WITH  A SINGLE  ENTRY  OF  ? , A 

LONG(ER) , MOPE  OETAILEO  DESCRIPTION  OF  THE  CURRENT  ITEM 
IS  TYPED. 

IF  ANY  QUESTION  (EXCEPT  FOR  *DECK  CARDS  AND  UNDERLINE 
CHARACTER)  IS  ANSWERED  WITH  A SINGLE  ENTRY  OF  3 , THE 

CURRENT  DOCUMENT  IS  TERMINATED. 

SUBROUTINE  AND  FJNCTION  SUBPROGRAMS  REQUIRED 
f>ART  OF  language 

AND  CONNEC  date  EOF  MINO 

MOYLEY  OR  RECOYR  REMARK  SHIFT 

PART  OF  PROGRAM 

AC  - ASK  FOR  ACCOUNT  NUMBER  (AC) 

ANYMOR  - ASK  IF  ANY  MORE  DOCUMENTS  TO  BE  CREATED 

BACKUP  - ASK  WHERE  BACKUPS  ARE 

CY  - ASK  FOR  CYCLE 

DATES  - ASK  FOR  BATE  CREATED,  BY  WHOM  AND  WHEN  REVISED 

OECKl  - ASK  IF  ’DECK  CARDS  DESIRED 

OESCR  - ASK  FOR  DESCIPTION  OF  THE  PERMANENT  FILE 

ECHOl  - ASK  IF  ECHO  DESIRED 

ENDIT  - CLOSE  PROGRAM  AND  PRINT  SUMMARY 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 

FMT  - ASK  FOR  FILE  FORMAT 

GETPFN  - ASK  FOR  PERMANENT  FILE  NAME 

GET14  - GET  VARIABLE  LENGTH  INFO  AND  PRINT  IN  COL  14 

GET18  - GET  VARIABLE  LENGTH  INFO  AND  PRINT  IN  COL  18 

(ENTRY  IN  GET14) 

GET29  - GET  VARIABLE  LENGTH  INFO  AND  PRINT  IN  COL  29 
(ENTRY  IN  GET14) 

ID  - ASK  FOR  ID  FILE  IS  CATALOGED  UNDER 

PASS  - ASK  FOR  PASSWORDS 

PRMPT  - ASK  IF  LONG/SHORT  PROMPTING  DESIRED 

TRUNC  - PRINT  TRUNCATED  MESSAGE 
UNOERl  - ASK  WHICH  UNDERLINE  CHARACTER  DESIRED 
WHERE  - ASK  WHERE  WRITEU®  AND  LISTING  ARE 
OTHERS 

ELTIME  - TIMING  ROUTINE 

FINDWRO  - SEE  IF  WORD  IN  IN  ARRAY 

FSETFIT  - SET  FTN  FIT  VALUES 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 

REPLAC  - REPLACE  ONE  CHARACTER  WITH  ANOTHER 

UNLOAD  - RETURN  FILES 

ZBLANK  - change  BLANKS  TO  OOB  AND  VICE  VERSA 

ARITHMETIC  STATEMENT  FUNCTIONS 

RllOFMT  - FAST  R-FORMAT  DECODE  (RIGHT-AOJ,  ZERO-FILLED) 

.ANGUAGEI  FORTRAN  TV 
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METHOD 

TTY  IS  PROMPTED  FOR  EACH  SECTION  OF  THE  DOCUMENT. 

ALL  SECTIONS  ARE  ALWAYS  ASKED  FOR  EXCEPT  THAT  WHEN  AN  XR 
PASSWORD  IS  GIVEN,  THE  DN,  EX,  MO  PASSWORDS  ARE  NOT 
REQUESTED. 

INPUT/OUTPUT  UNITS 

UNIT  • LFN  USE 


ZZTTYI 

OOCMNT 

ZZTTYO 

OUTPUT 


TTY  INPUT 

CREATED  DOCUMENTS  (ON  PF  SPACE) 

TTY  PROMPTER 

FTN  ERROR  MESSAGES 


EXECUTION 

FROM  SATCH 

NOT  DESIGNED  FOR  BATCH  USE 
FROM  TTY 

BEGIN, UTILITY ,,PFOOC. 

(TTY  IS  PROMPTED  FOR  ALL  INPUT) 

CATALOG, OOCMNT, .. ..  ANDZOR  MODIFY  USING  EDITOR 

EXECUTE  CARD  PARAMETERS 
PFDOC,OOCMMT, QUICK. 


OOCMNT  - 


QUICK 


CREATED  DOCUNENT(S) 

(MAY  BE  CATALOGED) 

•Q*  - DO  NOT  PRINT  INITIAL  DESCRIPTION; 

GIVE  SHORT  PROMPT  FOR  FIRST 
QUESTIONS 

OTHER  - PRINT  INITIAL  DESCRIPTION  AND  LONG 
PROMPTING  FOR  FIRST  QUESTIONS 
NOTEI  OMIT  UNTIL  YOU  ARE  USED  TO  THE 
PROGRAM,  THEN  USE  Q. 


DEFAULT  EXECUTE  CARO 
PFOOC , OOCMNT. 

FL  NEEDED  TO  LOADI  3Z000B 
FL  NEEDED  TO  RUN  I 30000B 


07/0Z/r6 


Z-LGO 
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r~" 


DATA 

THE  FOLLOWING  INFORMATION  IS  REQUESTEO  ONCE  PER  EKECUTIONI 
1-00  YOU  want  update  *DECK  CAROS  GENERATED  BEFORE  EACH 
DOCUMENT?  ENTER  Y FOR  YES,  N FOR  NO. 

(THE  DECK  NAME  WILL  BE  THE  FIRST  T CHRACTERS  OF 
THE  PFN) 

2 - WHICH  JNOERLINE  CHARACTER  DO  YOU  WANT? 

ENTER  I FOR  UNDERSCORE  (.)  OR  2 FOR  HYPHEN  (-). 

THE  FOLLOWING  INFORMATION  IS  REQUESTED  FOR  EACH  DOCUMENT  I 
3-00  YOU  WANT  ALL  ENTRIES  ECHOED?  (Y  FOR  YES,  N FOR  NO) 

4 - DO  YOU  WANT  THE  LONG  OR  SHORT  FORM  OF  THE  PROMPTING 

MESSAGES?  ENTER  L FOR  LONG,  S FOR  SHORT. 

5 - PFN  (1-40  CHARACTERS) 

6-10  (1-9  CHARACTERS) 

7 - AC  (10  CHARACTERS) 

8 - CY  (1-3  DIGITS) 

9 - TURNKEY  PASSWORD  (TK)  (1-9  CHARACTERS) 

10  - READ  PASSWORD  (RO)  (1-9  CHARACTERS) 

11  - READ  ONLY  (XR)  PASSWORO  (1-9  CHARACTERS) 

IF  XR  IS  BLANK,  ASK  FOR  THE  NEXT  3 PASSWORDS 

12  - CONTROL  PASSWRD  ( CN)  (1-9  CHARACTERS) 

13  - EXTEND  PASSWORD  (EX)  (1-9  CHARACTERS) 

14  - MODIFY  PASSWORD  (MD)  (1-9  CHARACTERS) 

15  - SPECIAL  PASSWORD  (1-9  CHARACTERS) 

(REQUFSTEO  ONLY  IF  10  IS  PPUBLIC  ACCESS  ID) 

16  - FILE  FORMAT.  THERE  ARE  12  RECOGNIZED  ABBREVIATIONS 

AND  PROVISION  FOR  USER-SPECIFIED  DESCRIPTION. 

TO  FIND  CURRENT  LIST,  ANSWER  ? TO  THIS  QUESTION. 

17  - DATE  FILE  CREATED.  ENTER  MM/DD7YY  OR  ENTER 

SEMI-COLON  (I)  FOR  TODAY. 

18  - NAME  OF  PERSON  MHO  CREATED  THE  FILE 

(1-30  CHARACTERS) 

19  - DATES  THE  FILE  HAS  REVISED  (EXTENDED  OR  MODIFIED). 

ANY  NUMBER  OF  1-55  CHARACTER  LINES.  END  WITH  A 
SINGLE  ENTRY  OF  SEMI-COLON  (I). 

20  - WHERE  IS  THE  WRITEUP  LOCATED? 

ANY  NUMBER  OF  1-44  CHARACTER  LINES.  END  WITH  A 
SINGLE  ENTRY  OF  SEMI-COLON  (I). 

21  - WHERE  IS  THE  LISTING  LOCATED? 

ANY  NUMBER  OF  1-44  CHARACTER  LINES.  END  WITH  A 
SINGLE  ENTRY  OF  SEMI-COLON  (I). 

22  - WHAT  BACKUP  IS  THERE  FOR  THE  FILE  AND  WHERE  IS  IT? 

ANY  NUMBER  OF  1-59  CHARACTER  LINES.  END  WITH  A 
SINGLE  ENTRY  OF  SEMI-COLON  (I). 

23  - GIVE  A DESCRIPTION  OF  THE  FILE. 

ANY  NUMBER  OF  1-59  CHARACTER  LINES.  END  WITH  A 
SINGLE  ENTRY  OF  SEMI-COLON  (I). 

24  - END  OF  DOCUMENT,  DO  YOU  WANT  TO  DO  ANOTHER? 

(Y  FOR  YES,  N FOR  NO) 
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(VUTHO*? 

nftVIO  V SOMMER  - OTNSROC  CODE  1S92.2 

OATa  WRITTENI  12/04/73  (ORIGINALLY  CALLEO  'SOOCM 

aATE<f?l  REVISED 
12/12/73 
01/09/74 

01/15/76  (NAME  CHANGED  TO  'PEDO:*) 

07/07/76  - 1)  CHANGE  TERMINATE  CHARACTER  TO  S, 

2)  ADO  QUICK  OPTION. 

3)  REMOVE  CENTERED  LlSTABLE  OUTPUT. 

4)  ADO  *D*  (DOCUMENTATION  FILE)  TO  TYPES  OF  FILE 
FORMATS. 

5)  REMOVE  ABILITY  TO  LIST  FINAL  OOCUMENT(S)  AT 

TTY. 

6)  ADD  RESPONSE  LENGTHS  TO  PROMPTING  MESSAGES. 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY)  UTILITYPL , I D=CSYS 


OBJECT 

POTTI  TB  11«;FR  LIBRARY)  UTILITY 


Pi?OGRAM  ‘PROGOOC* 

P'JPPOSF 

EXTRACT  (PPINT)  ONE  OR  ALL  DOCUNENTtS)  FROM  A DOCUMENTATION 

FILE 

PIJNCTIONAL  CATEGORY!  Q6 
LANGUAGE!  FORTRAN  IV  EXTENDED 
REMARKS 

DOCUMENTATION  FILE  IS  COMPATI3LE  KITH  AN  UPDATE  ’SOURCE* 

FILE  OF  ’DECK’S  ONLY. 

EXECUTION 

FROM  3AT:M 

ATTACH, UTILITY. 

L03FT,LIB=UTILITY. 

PROGDOCfLIBRARY ,10, PROGNAME. 

FROM  TTY 

BEGIN, UTILITY,,PR0G00C,LI3RARY, ID, PROGNAME, OUT. 

DISPOSE, OUT, PR=XYY. 

EXECUTE  CARD  PARAMETERS 

PROGOOC,LT3RARY,IO,ROUTINE,OUTPJT,LEFT,DOCFILE. 

LIBRARY  - NAME  OF  LIBRARY  CONTAINING  ROUTINE  FOR  WHICH 
DOCUMENTATION  IS  DESIRED 
MAY  BE  ONE  OF! 

NSROC 

UTILITY  (DEFAULT) 

ANY  OTHER  LIBRARY  NAME  (l-T  CHAR) 

PROGRAM  WILL  ATTACH  AND  RETURN  THE 
DOCUMENTATION  FILE.  THE  PFN  USED  WILL  BE 
THE  LIBRARY  NAME  SPECIFIED,  FOLLOWED  BY 
’DOCUMENTATION*  (DEFAULT  IS 
’UTILITY  DOCUMENT AT ION’) 

ID  - ID  UNDER  WHICH  DOCUMENTATION  IS  CATALOGED 

(DEFAULT  IS  THE  SYSTEM  PUBLIC  ACCESS  ID) 
ROUTINE  - NAME  OF  ROUTINE  FOR  WHICH  DOCUMENTATION 
IS  DESIRED 

(•ALL*  TO  PRINT  ALL  DOCUMENTATION) 

(DEFAULT  IS  *NONE*) 

OUTPUT  - LISTA3LE  OUTPUT 
LEFT  - PRINT  CENTERING 

MISSING  OR  *LEFT*  - LEFT-UUST I FI  ED  ON  PAGE 
OTHER  - CENTERED  ON  LARGE  PAGE 

(DEFAULT  IS  LEFT-UUSTIFIED) 

OOCFILE  - IF  USER  HAS  PREVIOUSLY  ATTACHED  A 

DOCUMENTATION  FILE,  PLACE  LFN  HERE  ANO  OMIT 
THE  FIRST  2 PARAMETERS  (*LIBRARY*  ANO  *10*). 
WHEN  THIS  PARAMETER  IS  USED  ANO  IS  NOT 
•Z2D0C*,  THE  FILE  IS  NOT  RETURNED  AT  END  OF 
EXECUTION. 


} 

r 


i 
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DEFAULT  EXECUTE  CARO 

PROGOnC, UTILITY,* ♦♦NONE, OUTPUT , LEFT, TAPEl  ,Z2DOC. 

OEPAULT  pLI  15000  LINES 

FL  NEEOEO  TO  LOAOl  320008 
FL  NEEDED  TO  RUN  « 22000B 


FORMAT 

OF  THE 

DOCUMENTATION  FILE 

THE 

FIRST 

RECORD  OF  EACH  DOCUMENT  IDENTIFIES  IT 

COL 

CONTENTS 

1-5 

•DECK 

6 

BLANK 

7-14 

DOCUMENT  NAME 

(1-7  CHARACTERS, 

NO  FMBEOOEO  BLANKS  OR  SPECIAL  CHARACTERS) 

EACH  DOCUMENT  IS  COMPOSED  OF  RECORDS  OF  THE  FOLLOWING  FORMI 
COL  CONTENTS 


1 CARRIAGE  CONTROL 

(TO  ALLOW  DOCUMENTATION  TO  BE  PRINTED  AT  ALL 
TERMINALS,  A»/OlO  THE  MINUS  <->  CARRIAGE  CONTROL) 
2-80  LINE  OF  DOCUMENT 


INPUT/OUTPUT  UNITS 
UNIT  • LFN 


JSE 


1 


OUTPUT  LIST^BLE  OUTPUT 

ZRFCORO  PERMANENT  RECORD  OF  REQUEST 

(ATTACHED  AND  RETURNED  WITHIN  PROGRAM) 
ZZOOC  FILE  CONTAINING  DOCUMENTATION 

(ATTACHED  AND  RETURNED  WITHIN  PROGRAM) 
(IF  THE  USER  REPLACES  THE  FILE  NAME  AT 
EXECUTION  TIME,  THE  FILE  IS  ASSUMED  TO 
BE  ATTACHED  AND  WILL  NOT  BE  RETURNED) 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 

AND  CLOSEM  FILESQ  GET  IFETCH 

OPENM  OR  PUT  RECO/R  REMARK 

SHIFT  STOREF 

PART  OF  PROGRAM 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 

OTHERS 

CPUA67  - GET  MACHINE  PROGRAM  IS  RUNNING  ON 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 

LASTC  - FIND  LAST  NON-BLANK/NON-OOB  CHARACTER 

MOVSTR  - MOVE  CHARACTER  STRING 

PAKLFT  - SQUEEZE  BLANKS  AND  ZEROS  OUT  OF  PFN 

REPLAC  - REPLACE  ONE  CHARACTER  WITH  ANOTHER 

REQUEST  - REQUEST, ZRECORD,»PF. 

UNLOAD  - RETURN, TAPEl. 

ZPFUNC  - ATTACH  DOCUMENTATION  FILE 
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ARITHMETIC  STATEMENT  FUNCTIONS 

FAST  L-FORMAT  DECODE  <LEFT-ADJ,  ZERO-FILLED! 

LllFMT  L61FMT  L/7FMT 
FAST  R-FORMAT  DECODE  (RIGHT-A3J,  ZERO-FILLED) 
R92FMT 


AUTHOR 

DAVID  V SOMMER  r OTNSRDC  CODE  1592.2 

DATE  WRITTEN!  01/27/Z5 

OATE<S>  REVISED 
03/26/75 

02/07/77  - CHANGE  TO  RECORD  MANAGER?  IMPROVE  ERROR 
03/31/77  - ADO  AND  SET  PERMANENT  RECORD  FLAG 
05/05/77  - ADD  CPU  TO  PERMANENT  RECORD 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UTILITYPL , IO=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY!  UTILITY 
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Ik 


PUPPOSF 

maintain  an  alphabetical,  sequential  procedure  file,  each 

PROCEDURE  BEING  ONE  SCOPE  LOGICAL  RECORD 
functional  CATEGORIES!  07  K1 
LANGUAGE!  FORTRAN  IV  FXTENDEO 
REMARKS 

EACH  PROCeOURE  MUSI  BE  ONE  AND  ONLY  ONE  LOGICAL  RECORD. 

EMPTY  RECORDS  WILL  BE  FLAGGED  IN  THE  LISTINGS  (FCN=  H,  L,  N, 
Q)  AND  REMOVED  (WITH  COUNT  IN  OAYFILEJ  IN  MAINTENANCE  (FCN= 
A,  0,  R) . 

EXECUTION 

FROM  BATCH 

ATTACH, TAPEl, ..  ..  (INPUT  PROCEOURE  FILE) 

BEGIN, UTIL  I TY,,PROMNr,.,.. 

FROM  TTY 

ATTACH, TAPEl,  ..  ..  (INPUT  PROCEDURE  FILE) 

BEGIN,UTILITY , , PROMNT ,,,,,, OUT. 

ROUTE,OUT,OC=PR,.... 

EXECUTE  CARO  PARAMETERS 

PROMNT, INFILE, OUTFILE ,FCN, NAME, 10, OUT PUT. 

INFILE  - INPUT  PROCEDURE  FILE 
OUTFILE  - OUTPUT  PROCEDURE  FILE 
(FOR  FCN!  A,  D,  G,  R) 

FCN  - FUNCTION.  ONE  OF! 

A OR  ADD  - ADO  PROCEDURE  'NAME* 

D OR  DELETE  - DELETE  PROCEDURE  'NAME* 

G OR  GET  - EXTRACT  PROCEDURE  'NAME* 

AND  PUT  ON  'OUTFILE' 

H OR  HEADERS  - LIST  PROCEOURE  HEADERS 
L OR  LIST  - .1ST  ALL  PROCEDURES  (OR 

PROCEDURE  'NAME')  EACH 
STARTING  ON  A NEW  PAGE 
N OR  NAMES  - LIST  PROCEOURE  NAMES 
0 - QUICK  LIST  OF  PROCEOURE  NAMES 

(NO  HEADINGS,  SINGLE  COLUMN) 

H OR  REPLACE  - REPLACE  PROCEDURE  'NAME' 

NAME  - ONE  OF! 

PROCEOURE  NAME 

(FOR  PCNI  G,  L;  if  OMITTED,  ALL) 

FILE  containing  NEW  PROCEOURE 
(FOR  FCN!  A,  0,  R) 

ID  - OPTIONAL  ID  FOR  FCN!  H,  L,  N. 

IF  SPECIFIED  - HEADING  HAS  ID  = XXXX. 

IF  OMITTED  - HEADING  HAS  LFN!  INFILE. 
OUTPUT  - LISTABLE  OUTPUT 

OEPAUuT  EXECUTE  CACD 

PROMNT, TAPE  1 ,TAPE2,*, ALL ,, OUT  PUT. 

• - USER  MUST  SPECIFY 
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FL  NEEDED  TO  LOAOl  3E000B 
EL  NEEDFO  TO  ^UN  t 26000B 

(P^OG^AW  adjusts  CO^E  AS  REQJIREO) 


input/o'JTput  units 
UNIT  • LFN 


JSE 


4 

1 

2 


ALL 

OUTPUT 

TAPEl 

TAPE2 

DAYFILE 


NEW  PROCEDURE  INPUT  FILE 

listable  output 

INPUT  PROCEDURE  FILE 
OUTPUT  PROCEDURE  FILE 
MESSAGE(S)  ON  WHAT  WAS  DONE 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 

AND  SUFFEPIN  BUFFEROUT 


FILESn 
MOVLFtf 
UNIT 

PART  OF  program 
AOJ 
CO’Y 
OFLETF 
EOJ 

GFTNFW 
GETNEWI 
GETPRO 
&eTPP.02 
GETT 
HEADERS 
LIST 
NA  1FS 
PRTOFL 
PUTPRO 
QUICK 
RE^L 


GET 

OPENM 


IFETCH 

RECOVR 


CLOSEM 

LENGTH 

REMARK 


DATE 

MOD 

TIME 


ADD  A PROCEDURE 

COPY  PROCEDURES 

DELETE  A PROCEDURE 

ABNORMAL  TERMINATION  ROUTINE 

GET  PROCEDURE  NAME  FROM  NEW  PROCEDURE 

GET  NEW  PROCEDURE  (ENTRY  POINT  IN  GETNEW> 

BUFFER  IN  ONE  PROCEDURE 

BUFFER  IN  FIRST  TWO  WORDS  OF  A PROCEDURE 
EXTRACT  ONE  PROCEDURE 

LIST  procedure  headers 

LIST  ONE  OR  ALL  PROCFOURES 
LIST  PROCEDURE  NAMES 

PUT  NUMBER  OF  EM^TY  RECORDS  DELETED  IN  DAYFILE 
BUFFER  OUT  ONE  PROCEDURE 

QUICK  LIST  OF  PROCEDURE  NAMES  (NO  HEADINGS) 

replace  a procedure 


OTHERS 

EXTPP*' 

fsetfit 

GETLFNS 

REDUCE 

REQUEST 

UNLOAD 


EXTRACT  NEXT  PARAMETER  FROM  STRING 

SET  FTN  FIT  VALUES 

GET  actual  local  FILE  NAMES 

ADJUST  CORE  AS  REQUIRED 

GET  PF  SPACE  FOR  OUTPUT  FILE 

RETURN  files 


ARITHMETIC  STATEMENT  FUNCTIONS 

FACT  L-FORHAT  OECOCE  (LEFT-AOJ,  ZERO-FILLED) 

L4irMT  LSIFMT  L61FMT  LZIFMT  L81FMT 
L91FMT 

others 

NROWS  - COMPUTE  NUMBER  OF  ROWS  IN  PRINTOUT 
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OAVIO  tf  SOMMER  - 0TNSR03  COOE  1992.2 
DATE  WRITTEN!  05/28/76 


OATE(S)  REVISED 

02/0T/77  - PROCESS  EMPTY  RECORDS 


LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UTILITYPL , IO=CSYS 


i 


j 

i 


r 


PROHRAM  *PRU3MP» 


PURPOSE 

OCTAL  ANO  character  DUMP  OF  DISK  FILE  BY  RELATIVE  PRU  NUMBER 

FUNCTIONAL  CATEGORIES*  J9  K3 

REMARKS 

NONE 


SUBROUTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
PAPT  OF  LANGUAGE 

CLOSEM  FILESO  SETP  IFETCH  MAXO 

MOO  MOVLEV  OPENH  SHIFT  SKIP 

STOREF 

PART  OF  PROGRAM 

OMP  - DO  ACTUAL  PRINTING  OF  THE  PRU 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 

GETFMTS  - DEFINE  FORMATS  FOR  *DMP* 

OTHERS 

GETLFNS  - GET  ACTUAL  LOCAL  FILE  NAMES 
IFMTV  - FAST  VARIABLE  LENGTH  I-FORMAT  DECODE 
MFETCH  - READ  SPECIFIED  WORD  IN  USER'S  FL 
REPLACM  - REPLACE  MULTIPLE  CHARACTERS  IN  AN  ARRAY 


i 


SETREW  - DECODE  REWIND  OPTION 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

language*  fortran  IV 

INPUT/OUTPUT  UNITS 

UNIT  # LFN  use 


OUTPUT  LISTABLE  OUTPUT 

TAPEl  FILE  TO  BE  DUMPED 

EXECUTION 

FROM  BATCH 

ATTACH,TAPE1,.. ..  DISK  FILE  TO  BE  DUMPED 

8EGIN,UTILITY,,PRU0MP,,.... 

FROM  TTY 

ATTACHjTAPEl,....  DISK  FILE  TO  BE  DUMPED 

BEGIM,UTILITY,,PRUOMP,OUT 

ROUTE, OUT, DC=PR,.... 
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FXECUTF  CARD  PARAiETERS 

PRUDMP, INEILE,START  tNPRUSf 3UrPJT,R£R,5UP,CC,PRUS,WR0S. 
INFILE  - INPUT  FILE  TO  OE  OUMPEO 
START  - STARTING  PRU  NUMBER  (DECIMAL) 

0 OF  OMITTED  - START  AT  BEGINNING  OF  FILE 
NPRUS  - NUMBER  (DECIMAL)  OF  PRJS  TO  BE  OUMPEO 
I (DEFAULT!  9993994  (ALL  OF  FILE)) 

! OUTOUT  - LISTA9LE  OUTPUT 

I PFW  - INFILE  rewind  option 

A - rewind  after  use 

B - REMIND  BEFORE  USE  (DEFAULT) 

P - REWIND  BEFORE  AND  AFTER  USE 

U - REWIND  BEFORE,  REMIND  AND  UNLOAD 

AFTER  USE 
OTHER  - NO  REMIND 

(ANY  WORDS  BEGINNING  WITH  THESE  LETTERS 
WILL  PRODUCE  THE  S .ME  RESULTS) 

SUP  - CHARACTER  PRINTING  SUPPRESS  OPTION 

OMITTED  OR  SUa  - SUPPRESS  CHARACTERS  WITH 

DISPLAY  CODE  GOB  OR 
HIGHER  (DEFAULT) 

anything  ELSE  - PRINT  ALL  CHARACTERS 
CC  - CARRIAGE  CONTROL  OPTION 

OMITTED  OR  ‘CC  - PRINT  DUMP  ON  NEW  PAGE 
ANYTHING  ELSE  - PRINT  DUMP  ON  SAME  “AGE 
PRUS  - OMITTED  OR  'OPRU*  - PRINT  OCTAL  PRU  COUNT 

anything  else  - PRINT  DECIMAL  PRU  COUNT 

WRDS  - OMITTED  OR  ‘OMRO*  - PRINT  OCTAL  WORD  COUNT 

ANYTHING  ELSE  - PRINT  OECIMAL  WORD  COUNT 

NOTE)  WORD  COUNT  WITHIN  PRU  IS  ALWAYS  OCTAL. 

DEFAULT  EXECUTE  CARD 

PRUDMP, T A PEI, 1,9999999, OUT OUT, BEFORE, SUP. 

FL  NEEDED  TO  LOAD!  320008 
FL  NEEDED  TO  RUN  t 23000B 

author 

DAVID  V SOMMER  - OTNSRDC  CODE  1892.2 

DATE  WRITTENJ  09/24/76  - TOTAL  REWRITE  DUPLICATING  AND 

EXPANDING  THE  CAPABILITIES  OF  THE 
SCOPE  3.3  PROGRAM  WRITTEN  DY  ME. 

HAAS  - DTNSROC  code  1843 

JATE(S)  REVISED 

LOCATION  OE  DECKS 
SOURCE 

UPDATE  LIBRARY!  UTI L IT Y PL , I 0=CS YS 

OBJECT 

EDITLI3  USER  LIBRARY!  UTILITY 


P'^OGRftM  'PTIM* 


1 


I 

I 

! PJRPOSF 

; PRINT  CPa,  CP9,  CPA<-CP9,  10  aNO  PP  TINES  SINCE  START  OF  J03 

‘ OR  INTERCOM  SESSION 

I 

I 

I FUNCTIONAL  CATEGORYI  00 

remarks 

OUTPUT  FILE  WILL  BE  CONNECTED. 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
CONNET 
OTHERS 

ALTIMF  - OBTAIN  TIMES 
LANGUAGEt  FORTRAN  TV 
OUTPUT  UNITS 

UUII—f  —LEW USE 

OUTPUT  LISTABLE  OUTPUT 

EXECUTION 

FROM  BATCH 

ATTACH, UTILITY. 

LnSET,LlB=UTILITY. 

PTIM. 

FROM  TTY 

ATTACH, UTILITY. 

LIBRARY, UTILITY. 

PTIM. 

EXECUTE  CAPO  PARAMETERS 
PTIM, OUTPUT. 

OUTPUT  - LISTABLE  OUTPUT 

DEFAULT  FXFCUTF  CARO 
PTIM, OUTPUT. 

FL  NEEDED  TO  LOADI  22300B 
FL  NEEDED  TO  RUN  I 130008 

AUTHOP 

DAVIO  V SOMMFR  - DTNSRDC  CODE  1992.2 

DATE  WRITTENI  01/09/76 

DATE(S»  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UT IL IT Y PL , I D =CS Y S 
OBUECT 

EDITLI3  USER  LIBRARY!  UTILITY 
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PROGPftM  'PURPOSE* 

PURPOSE 

EXTRACT  PURPOSE  INFORMATION  FROM  DOCUMENTATION  FILES 
(WHICH  WERE  PREPARED  IN  THE  FORMAT  GENERATED  BY  PROGRAM 
•DOC) 

FUNCTIONAL  CATEGORIES!  SO  Q6 
REMARKS 

DOCUMENTATION  FILE  IS  COMPATIBLE  WITH  AN  UPDATE  'SOURCE' 
FILE  OF  *OECK*S  ONLY. 


SU0»OUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 

AND  OATE  EOF  OR  RECOVR 

REMARK  SHIFT  TIME 

PART  OF  PROGRAM 

EOU  - ABNORMAL  TERMINATION  ROUTINE 

OTHERS 

GETLFNS  - GET  ACTUAL  FILE  NAMES 

PAKLFT  - SQUEEZE  BLANKS  AND  ZEROS  OUT  OF  PFN 

UNLOAD  - RETURN,TAPE1. 

ZPFUNC  - ATTACH  DOCUMENTATION  FILE 

ARITHMETIC  STATEMENT  FUNCTIONS 

LllFMT  - FAST  L-FORMAT  DECODE  CLEFT-AOJ,  ZERO-FILLED) 

L61FMT  - FAST  L-FORMAT  DECODE  (LEFT-AOJ,  ZERO-FILLED) 

L77FMT  - FAST  L-FORMAT  DECODE  (LEFT-ADJ,  ZERO-FILLED) 

RB2FMT  - FAST  R-FCRMAT  DECODE  (RIGHT-ADJ,  ZERO-FILLED) 

INPUT/OUTPIIT  UNITS 

UNIT  i LFN  USE 


1 ZZOOC  FILE  CONTAINING  DOCUMENTATION 

(ATTACHED  AND  RETURNED  WITHIN  PROGRAM) 
(IF  THE  USER  REPLACES  THE  FILE  NAME  AT 
EXECUTION  TIME,  THE  FILE  IS  ASSUMED  TO 
BE  ALREADY  ATTACHED  AND  WILL  NOT  BE 
RETURNED) 

OUTPUT  LISTABLE  OUTPUT 

EXECUTION 

FROM  BATCH 

BEG IN, UTILITY,, PURPOSE, LIBRARY, ID. 

FROM  TTY 

8EGlN,UTILITY,,PURP0SE,LiaRARY,ID,ANY,.  ... 

ROUTE, ANY, OC=PR, ... . 
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EXECUTE  CftRD  PARAMETERS 

PURPOSE, LIBRARY , ID, OUTPUT, LEFT, OOCFILE. 

LIBRARY  - NAME  OF  LIBRARY  TO  BE  EXTRACTED 
MAY  BE  ONE  OFl 
NSROC 

UTILITY  (DEFAULT) 

ANY  OTHER  LIBRARY  NAME  (1-7  CHAR) 

PROGRAM  WILL  ATTACH  AND  RETURN  THE 
DOCUMENTATION  FILE.  THE  PFN  USED  HILL  BE 
THE  LIBRARY  NAME  SPECIFIED,  FOLLOWED  BY 
‘DOCUMENTATION*  (DEFAULT  IS 
•UTILITY  DOCUMENTATION*) 

ID  - ID  UNDER  WHICH  OOCUMENTATION  IS  CATALOGED 

(DEFAULT  IS  THE  SYSTEM  PUBLIC  ACCESS  ID) 
OUTPUT  - LISTA8LE  OUTPUT 
LEFT  - PRINT  CENTERING 

OMITTED  OR  ‘LEFT*  - LEFT-JUSTIFIED  ON  PAGE 
ANYTHING  ELSE  - CENTERED  ON  LARGE  PAGE 

(DEFAULT  IS  LEFT-JUSTIFIED) 

DOCFILE  - IF  USER  HAS  PREVIOUSLY  ATTACHED  A 

DOCUMENTATION  FILE,  PLACE  LFN  HERE  AND  OMIT 
THE  FIRST  2 PARAMETERS  ('LIBRARY*  AND  *ID*). 
WHEN  THIS  PARAMETER  IS  USED  AND  IS  NOT 
»ZZOOC*,  THE  FILE  IS  NOT  RETURNED  AT  END  OF 
EXECUTION. 

DEFAULT  EXECUTE  CARD 

PURPOSE, UTILITY,* *, OUTPUT , LEFT , ZZDOC . 

FL  NEEDED  TO  LOADl  31000B 
FL  NEEDED  TO  RUN  I 21000B 

AUTHOR 

DAVID  V SOMMER  - OTNSROC  CODE  1892.2 

DATE  WRITTENI  Oa/OU/75 

9ATE(S)  REVISED 
05/05/76 
05/18/76 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  UTILITYPL , IO=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY!  UTILITY 


05/18/76 
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PKOGRftM  ‘REnECK* 


PURPOSE 

CHANGE 


AN  UPDATE  COMPILE  FILE  BACK  INTO  A SOURCE  FILE 


FUNCTIONAL  CATEGORY! 


07 


REMARKS 

•OFCK  CAROS  ARE  ADDED  BEFORE  EACH  DECK. 

UPDATE  SEQUENCING  IS  REMOVED. 

A NEW  DECK  BEGINS! 

A)  AFTER  ENO-OF-SECTION  OR  ENO-OF -P A RT IT  I ON ? 

B)  WITH  CHANGE  OF  DECK  (COL  74-M2)  ONLY  IF  PREVIOUS 

CARD  HAS  FORTRAN  END  CARO  {•  END  * IN 

COL  1-2Q»  OR  COMPASS  ENO  CARO  ('END  ' IN  COL  11-14). 

the  CONDITIONS  FOP  B)  ALLOW  DECKS  TO  HAVE  »COMOECK  CALLS 
WITHOUT  TRIGGERING  A NEW  DECK.  (♦COMOECK  CAL. 5 HAVE  THE 
COMDECK  NAME  IN  74-82,  WHICH  IS  USUALLY  DIFFERENT  FROM  THE 
MAIN  OFCK  NAME.) 

SUBPOUTTNF  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
CLOSEM 
FILESQ 
GET 

IFETCH 

OPENM 

PUT 

RECOVR 

REMARK 

SHIFT 

STORFF 

OTHERS 


EOJ 

- ABNORMAL  T 

ERMINATION  ROUTINE 

GETLFNS 

- GE 

T ACTUAL 

LOCAL 

FILE  NAMES 

REDUCE 

- RE 

DUCE  COR 

E TO  MINIMUM  NEEDED 

TO  RUN 

REQUEST 

- RE 

QUEST, TA 

pE2,*PF 

« 

ARITHMETIC 

STATFME 

NT  FUNCTIONS 

A21FMT 

- 

FAST 

A-FORMAT 

DECODE 

(LEFT-AOJ, 

BLANK-FILLED) 

ASSFMT 

- 

FAST 

A-FORMAT 

DECODE 

(LEFT-AOJ, 

BLANK-FILLED) 

Aq4FMT 

- 

FAST 

A-FORMAT 

DECODE 

(LEFT-AOJ, 

BLANK-FILLED) 

LllFMT 

- 

FAST 

L-FORMAT 

DECODE 

(LEFT-AOJ, 

ZERO-FILLED) 

L41FMT 

- 

FAST 

L-FORMAT 

DECODE 

(LEFT-ADJ, 

ZERO-FILLED) 

L81FMT 

- 

FAST 

L-FORMAT 

DECODE 

(LEFT-AOJ, 

ZEPO-FILLEO) 

R41FMT 

- 

FAST 

R-FORMAT 

DECODE 

(RIGHT-AOJ, 

ZERO-FILLED) 

LANGUAGE! 

fortran 

IV 

INPUT/OUTPUT 

UNITS 

FORTRAN 

local 

LOGICAL 

FILE 

UNIT 

NAME 

USE 

TAPEl 

INPUT  COMPILE  file 

TAPE2 

OUTPUT  -SOURCE  -FILE 

OUTPUT 

LISTA8LE  OUTPUT  (DECK 

nhiJlLF- 

total  number  of  DECKS 
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EXECUTION 

FRON  3flTC4  AND  TTX 
ATTACH, OLDPL,  ... 

UP3AT£,P, .. . 

ArrACH.UTILITV. 

trsRApy.uTiLiTr. 

REOECK, COMPILE. 

(CATALOG, TAPE2,.  ..) 

EXECUTE  CARO  PARAMETERS 

REOFCX, INFILF.OUTFILE.REH, OUTPUT. 


INFILE 

- INPUT 

COMPILE  FILE 

outfilf 

- OUTPUT 

SOURCE  file 

RFW 

- TAPEl 

REWINO  OPTION 

A 

- REWINO  AFTER  USE 

8 

- REWINO  BEFORE  USE 

R 

- REWIND  BEFORE  AND  AFTER  USE 

U 

- REWIND  BEFORE,  REWINO  AND  UNLOAD 
AFTER  USE 

OTHER  - NO  REWINO  (DEFAULT) 

(ANT  WORDS  BEGINNING  WITH  THESE  LETTERS  WILL 
PRODUCE  THE  SAME  RESULTS) 

OUTPUT  - LISTABLE  OUTPUT  (DECK  NAMES) 

DEFAULT  EXECUTE  CARO 

RF0ECK,TAPE1,TAPE2,N0REW, OUTPUT. 

FL  needed  TO  LOADI  270008 

(PROGRAM  REDUCES  TO  MINIMUM  NEEDED  TO  RUN) 

AUTHOR 

DAVID  V SOMMER  - NSROC  CODE  1992.2 

DATE  WRITTENI  06/30/75 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIRRARYI  UTILITYPL, I0=CSYS 
OBUECT 

EOITL19  USER  LIBRARY)  UTILITY 


0^/30/75 
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P^OGRftM  *SORTUP* 

PURPOSE 

GENERATE  UPDATE  DIRECTIVES  TO  SORT  OLOPL 
FUNCTIONAL  CATEGORTI  Q7 
REMARKS 

THIS  UTILITY  ALLOWS  A USER  TO  SORT  THE  DECKS  IN  HIS  UPDATE 
LIBRARY  TO  BE  IN  ALPHABETICAL  ORDER.  THE  PRODUCT  IS  THE 
NECESSARY  UPDATE  •♦HOVE*  DIRECTIVES.  A SORTED  LIST  OF  EACH 
“ARTITION  IS  ALSO  PROVIDED. 


♦SOURCE*  AND  'TAPET*  ARE  NOT  REWOUND. 

SUBROUTINE  and  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  DF  LANGUAGE 

AND  EOF  OR  REMARK  SHIFT 

OTHERS 

PAKLPT  - SQUEEZE  LEFT  AND  REMOVE  BLANKS 
SSORfl  - SORT  DECK  NAMES 

arithmetic  statement  functions 

NROWS  - COMPUTE  » OF  ROWS  IN  PRINTOUT  OF  SORTED  DECK  NAMED 
METHOD 

THE  SOURCE  FILE  (FROM  'UPDATE , P , F , S. »»  IS  READ  AND  ALL  *OECK 
AND  "COMDECK  CAROS  ARE  DETECTED.  THE  DECK  NAMES  ARE  CHECKED 
FOR  SPECIAL  CHARACTERS.  IF  THE  DECK  NAME  HAS  SPECIAL 
CHARACTERS,  IT  IS  CONSIDERED  A DELIMITER  DIVIDING  THE 
LIBRARY  INTO  LOGICAL  PARTITIONS;  OTHERWISE,  THE  NAME  IS 
ADDED  TO  THE  LIST  OF  NAMES  IN  THAT  PARTITION.  UPON 
ENCOUNTERING  THE  ENO  OF  THE  PARTITION,  •♦MOVE*  CARDS  ARE 
WRITTEN  ON  *TAPE7*  TO  SORT  THE  DECKS  IN  THAT  PARTITION. 

UPDATING  THE  OLOPL  WITH  THESE  DIRECTIVES  WILL  CAUSE  THE 
OLDPL  TO  BECOME  SORTED  ALPHABETICALLY. 

INPUT/OUTPUT  UNITS 

UNIT  • LFN  USE 


1 SOURCE  SOURCE  FILE  FROM  * UPOA TE , P , F, S. * 

7 TAPE7  WILL  CONTAIN  **MOVE*  DIRECTIVES 

(TO  BE  USED  AS  INPUT  TO  'UPDATE*) 
OUTPUT  LISTABLE  OUTPUT  CONTAINING  STATISTICS 
OF  RUN  AND  SORTED  LIST(S) 


EXECUTION 

FROH  BATCH 

ATTACHyOLOPLy ..  .. 

UPOATEyPyFyS. 

ATTACHyUTILITY. 

LIBRAPYyUTILlTf . 

SORTJP. 

REOUFSTyNENPLy^PF. 

REMIND, TAPE7. 

UPDATE, P,N,I=TAPE7. 

CATALOGyNEMPLy.  ... 

FROM  TTY 

ATTACHyOLOPL,.... 

UPDATE, P,F,S,0=0UT. 

ATTACHyUTILITY. 

LIBRARY, UTILITY. 

SORTUPyyyOJT. 

REQUEST, NEMPL,*PF. 

REMIND, TAPE/. 

UPDATE,P,N,I=TAPE7,0=0UT. 

CATALOGyNEMPLy.... 

DISPOSE, OUT, PR=XYY. 

EXECUTE  CARO  PARAMETERS 

SORTUPyINFILEyHOVEOIRyOUTPJT. 

INFILE  - INPUT  FILE  (UPDATE  SOURCE  FILE) 
MOYEOIR  - OUTPUT  FILE  OF  *MOYE  DIRECTIVES 
OUTPUT  - LISTABLE  OUTPUT 

DEFAULT  EXECUTE  CARO 

SORTUP, SOURCE, TAPE 7, OUTPUT. 

FL  NEEDED  TO  LOADi  27000B 
FL  NEEDED  TO  RUN  f 17000B 

AUTHOR 

C FLINK  - KPS  NHL 
DATE  HRITTENI  09/26/73 
DATE<S)  REVISED 

11/29/73  - VI. 1 - DAVID  V SOMMER  - NSROC  CODE  1892.2 
03/17/75 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARYI  UTILITYPL yID=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY!  UTILITY 


05/12/76 
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PROGRAM  ‘TAPDMP* 


PURPOSE 

DUMP  SELECTED  PORTIONS  OF  A T-TRACK  MAGNETIC  TAPE  WRITTEN  IN 
AN  UNKNOWN  DENSITY  AND/OR  MODE.  IT  IS  CONTROLLED  BY  A 
SERIES  OP  EREE-FIELO  CONTROL  CAROS  CONTAINING  ORDERS  FOR  THE 
dumping,  SKIPPING  OR  BACKSPACING  OF  RECORDS  OR  FILES. 

functional  CATEGORIES*  JD  K4 

EXAMPLE 

DUMP  THE  FIRST  Z AND  LAST  2 RECORDS  OF  A FILE* 

CXXX.MTl,  NAME/COOE 

CHARGE  CAPO 

VSN,OTAPE=SLOTXX=E»TIO. 

REDUE5T,0TAPE,HY, NORING.  j 

ATTACH, UTILITY.  i 

L0SET,LI3=UTILITY.  J 

TAPDMP.  ] 

• //8/D  EOR 

DUMP  2 RECORDS.  SKIP  1 FILE. 

BACKSPACE  2 RECORDS.  DUMP  2 RECORDS. 

" 6/7/8/9  EOF 

NOTE!  Thf  data  CARO  COUlO  HAVE  BEEN  ABBREVIATED  AS* 

D 2 R.  S 1 F.  3 2 R.  0 2 R. 

NOTE!  OUTPUT  WILL  BE  UP  TO  4096  LINES.  TO  CHANGE  THIS,  USE 
TAPDMP(LC=NNNNNNN»  where  NNNNNNN  IS  THE  NEW  LINE 
COUNT  LIMIT  (1-9999999). 

DATA  CARDS  I 

DATA  CARDS  ARE  PUNCHED  IN  EREE  FORM  WITH  THE  FIELDS 
SEPARATED  BY  BLANKS  AND  THE  COMMANDS  SEPARATED  BY  PERIODS. 

ANY  NUMBER  OF  COMMANDS  MAY  APPEAR  ON  A CARO,  BUT  COiMMANDS 
MAY  not  be  SPLIT  ACROSS  CAROS.  THE  FULL  COMMAND,  OR  ITS 
ABBREVIATION,  IS  OBEYED  UNTIL  ONE  OF  THE  FOLLOWING 
CONDITIONS* 


1)  THE  END 

OF  THE 

COMMAND  3TRIN 

g; 

2)  AN  END- 

OF-TAPE 

CONDITION  IS 

detected; 

3)  an  invalid  COMMAND  IS  ENCOUNTERED. 

COMMANDS 

COMMANDS  contain  t,  2 

OR  3 FIELDS 

and  ARE  SUMMARIZED 

, WITH 

ABBREVIATIONS 

, IN  THE 

TABLE  BELOW* 

FIELD  1 

A88R. 

FIELD  2 

FIELD  3 

ABBR. 

DUMP 

0 

N 

RECORO(S)/FILE  (S) 

R/F 

PRINT 

P 

N 

DITTO 

INTERPRET 

1 

N 

DITTO 

SKIP 

S 

N 

DITTO 

BACKSPACE 

B 

N 

DITTO 

EXPECT 

E 

200/556/900 

BINARY/CODED 

B/C 

NAMF  = 

N= 

FILENAME 

, NOREWIND 

.N 

ALL 

A 

REWIND 

R 

06/22/77 

2- 

118 

TAPOMP  - 

1 OF 

J 


nOM'IAND  4CTI0M 


DUMP 

- CODED  PEAOt 

TAPE  CO 

NTENTS 

PRINTE 

STRING  WITH 

EACH  PO 

3ITION 

COUNT 

BINARY  READ! 
WORDS. 

TAPE  C 

ONTENTS 

PRINT 

EACH  RECORD 

HAS  A H 

EAGER  showing 

FILE  NUMBER 

ON  THE 

TAPE. 

PRINT 

- COOED  READI 

same  as 

DUMP, 

ft  HOLLERITH 


giHftP.r  REftOI  CONTENTS  PRINTED  IN  HOLLERITH. 

TO  PREVENT  PROBLEHS  WITH  EHBEDOEO  BINftRf  ZEROS, 
THESE  ARE  GHftNGEO  TO  BLANKS  BEFORE  PRINTING. 


INTERPRET  - COOED  REflOl  SAME  AS  OUHP. 

BlNAPr  REAOl  printed  IN  OCTAL  AND  HOLLERITH,  AS 
IN  THE  PRINT  CONHANO. 


( 


SKIP  - SKIP  DESIGNATED  NJH3ER  OF  RECORDS  OR  FILES.  ALL 

RECOROS  REAO  ARE  FULLY  SHECKEO  FOR  READABILITY 
ANO  are  tallied  IN  THE  RECORD  AND  FILE  COUNT, 

BUT  HILL  NOT  BE  PRINTED  UNDER  ANY  CONDITION. 

BACKSPACE  - BACKSPACE  SPECIFIED  NUMBER  OF  RECORDS  OR  FILES. 
IF  A FILE  MARK  OR  BEGINNING  OF  TAPE  IS 
ENCOUNTERED  WHILE  BACKSPACING,  TAPE  MOTION  STOPS 
WITH  THE  TAPE  POSITIONED  AHEAD  OF  THE  FILE  MARK. 


EXPECT  - IF  THE  USER  KNOWS  THE  MODE  AND/OR  DENSITY  USED 
TO  WRITE  THE  TAPE,  THE  FIRST  REAO  CONDITIONS 
USED  BY  •TAPOMP-  CAN  BE  SET  WITH  THE  EXPECT 
COMMAND.  ’■HIS  WILL  ALSO  DETERMINE  THE  MODE  AND 
DENSITY  USED  TO  PRINT  A RECORD  IN  CASE  AN 
UNRFCOVERA3.E  PARITY  ERROR  IS  ENCOUNTERED. 

NAME=  - THIS  COMMAND  ALLOWS  THE  USER  TO  OVERRIDE  THE 

DEFAULT  filename  (OTAPE).  THUS,  MANY  TAPES  CAN 
BE  DUMPED  IN  ONE  EXECUTION  OF  THE  PROGRAM. 

THE  THIRD  FIELD  (NOREHiND)  IS  USED  TO  INHIBIT 
THF  INITIAL  REWIND  ON  THE  TAPE  BEING  DUMPED.  IN 
T ;IS  CASE,  REVERSE  MOTION  OF  THE  TAPE  WILL  CAUSE 
THE  first  RECORO  AND  FILE  TO  HAVE  ORDINALS  OF  -1 
ASSIGNED,  SINCE  THF  STARTING  NUMBERS  MUST  BE 
RELATIVE  TO  THE  STARTING  POSITION  OF  THE  TAPE. 


ALL  - NORMALLY,  "TAPOMP"  WILL  IGNORE  SYSTEM  NOISE 

RECORDS  INTRODUCED  AS  A RESULT  OF  RECOVERED 
WRITE  ERRORS.  THIS  WILL  GIVE  THE  USER  A TRUE 
COUNT  OF  HIS  DATA  RECOROS.  IF  IT  IS  OESIRED  TO 
CHECK  FOR  THE  POSSIBLE  PRESENCE  OF  THESE  NOISE 
RECORDS,  THE  •‘ALL"  COMMAND  MAY  BE  ISSUED  TO 
TALLY  EACH  PRU  OF  THE  TAPE  REGARDLESS  OF  ITS 
CONTFNT.  ONCE  ISSUED,  THIS  COMMAND  MAY  NDT  BE 
TURNED  OFF. 


■’EWIND 


REWIND  THE  TAPE 


BEING  DUMPED. 
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3EPAULT  settings 

1)  NANEsOTflPE. 

?)  ALL  FILES  3EING  OUNPED  ARE  INITIALLY  REWOUND  UNLESS 
"NOREWINO"  IS  SPECIFIED  ON  THE  -NANE="  COMMAND. 

3»  IF  NO  CONTROL  CAROS,  "DUMP  5 RECORDS."  IS  ASSUMED. 

4)  IF  A PR03A3LE  SYSTEM  LA5EL  IS  FOUND,  THE  USER  IS  INFORMED 
AND  THE  LA3EL  FILE  IS  INCLUDED  IN  THE  RECORD  AND  FILE 
COUNTS. 

5)  the  user  may  not  SPECIFY  THE  KIND  OF  FILE  MARK  USED  TO 
DELIMIT  FILES.  "TAPOMP"  WILL  INFORM  THE  USER  WHETHER  IT 
HAS  FOUND  A SCOPE  EOF  (LEVEL  17  8-CHARACTER  PRU)  OR  A 
TAPE  MARK. 

LIMITATIONS 

1)  ON.Y  THE  FIRST  50  COMMANDS  WILL  3E  PROCESSED. 

2)  ONLY  50  FILES  PER  TAPE  CAN  3E  HANDLED  PROPERLY.  IF  MORE 
ARE  PRESENT,  RECORD  COUNTS  WITHIN  THESE  FILES  CANNOT  BE 
HELD. 

3)  will  not  03EY  A COMMAND  REQUIRING  FORWARD  MOTION  IF  IT 
HAS  FOUND  AN  EOT  REFLECTIVE  MARKER  AS  A RESULT  OF 
COMPLETING  THE  PREVIOUS  COMMAND.  SUCH  FORWARD 
POSITIONING  WILL  ABORT  THE  RUN. 

4)  THERE  IS  NO  EFFECTIVE  LIMITATION  ON  THE  SIZE  OF  BLOCK 
WHICH  MAY  BE  DUMPED.  "TAPOMP"  WILL  OBTAIN  MORE  STORAGE 
AS  NEEDED  FOR  SUFFER  SPACE. 

5)  density  determination  cannot  be  done  WITH  CONFIDENCE 
3ETWEFN  556  AND  800  3PI,  AS  A READ  SETTING  OF  800  WILL 
ALSO  READ  MOST  TAPES  WRITTEN  AT  556  BPI . TO  REDUCE  THIS 
PROBLEM  AS  MUCH  AS  POSSIBLE,  "TAPOMP"  TRIES  556  BPI  FIRST 
BEFORE  switching  TO  ANOTHER  DENSITY. 


REMARKS 

1)  IF  A NEW  TAPE  IS  DUMPED,  IT  MAY  RUN  OFF  THE  END  OF  THE 
REEL. 

LANGUAGE!  RUN  FORTRAN  AND  COC  6000  CP  A NO  PP  COMPASS 


INPUT/OUTPUT  UNITS 
UUII— f —LEW— 
99  INPUT 


USE 

INPUT  FILE  OF  COMMANDS 


OUTPUT  LISTABLE  OUTPUT 


I 

i 

I 

i 
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EXECUTION 

FROM  BATCH 

...CAROS  TO  MOUNT  TAPE 
BEGIN, UTILITY ,,TAPOMP. 

• 7/8/9  EOR 

(COMMANOS) 

••  6/7/8/9  EOF 

FROM  TTY 

CANNOT  BE  RUN  FROM  TTY 

EXECUTE  CARO  PARAMETERS 
TAPDMP, INPUT, OUTPUT. 

input  - INPUT  FILE  OF  COMMANOS 
OUTPUT  - LISTA8LE  OUTPUT 

DEFAULT  EXECUTE  CARO 
TAPOMP, INPUT, OUTPUT. 

FL  NEEDED  TO  LOAD«  25000B 
FL  NEEOEO  TO  RUN  I 150008 

(PROGRAM  ADJUSTS  CORE  UP  ANO  DOWN  AS  REQUIRED) 

AUTHOR 

R.  S.  SMITH 

\TE  WRITTENI  APRIL,  1972 

w4TE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARYI  UTILITYPL , ID=CSVS 
OBJECT 

EDITLIB  USER  LIBRARY)  UTILITY 


PROGRAM  *TAPLIST» 


PURPOGF 

PREPARE  TWO  LISTS  FROM  M AGT APEOOCU ME  NT AT  ION  FILE: 

1)  LIST  OF  TAPE  NUMBER,  LABEL,  DENSITY,  REMARKS  AND 
DESCRIPTION  FOR  EACH  TAPE  DOCUMENTED  IN  FILE 

2)  LIST  OF  TAPE  NUMBERS  AND  LABELS 

FUNCTIONAL  CATEGORY!  Q6 
LANGUAGE!  FORTRAN  IV 
REMARKS 

INFORMATION  IS  EXTRACTED  FROM  A FILE  OF  DOCUMENTS  WHICH 
ARE  IN  THE  FORMAT  GENERATED  BY  PROGRAM  •MTDOC  AND  CATALOGED 
AS  •MAGTAPEOOCUMENTATION,ID=CXXX',  WHERE  CXXX*  IS 
SUPPLIED  TO  THE  PROGRAM. 

EXECUTION 

FROM  BATCH 

3EGIN,UTILITY,,TAPLIST,CXXX. 

FROM  TTY 

3EGIN,UTILITY,,TAPHST,  CXXX,  OUT. 

ROUTE, OUT, DC  = PR, . ... 

EXECUTE  CARD  PARAMETERS 
T A PLI ST, ID, OUTPUT, LEFT. 

ID  - ID  UNDER  WHICH  PEN  M AGT A PE DOC UMENT AT  I DN 

IS  CATALOGED 

OUTPUT  - LISTABLE  OUTPUT 
LEFT  - CENTERING  OPTION 

OMITTED  OR  LEFT  - PRINT  LEFT - JU ST  IF I ED 
ANYTHING  ELSE  - PRINT  CENTERED  ON  WIDE 

PAGE 

DEFAULT  EXECUTE  CARO 

TAPLIST,*,OUTPUT,LEFr . 

• - USER  MUST  SUPPLY 

FL  NEEDED  TO  LOAD!  32000B 
EL  NEEDED  TO  RUN  1 220008 

(PROGPAM  ADJUSTS  CORE  AS  REQUIRED) 

INPUTXOUTPUT  UNITS 

UNIT  # LFN  USE 


OUTPUT  LISTABLE  OUTPUT 
1 ZZOOC  DOCUMENTATION  FILE  (ATTACHED  AND 

RETURNFD  BY  PROGRAM) 


SUBR0UTI>4E  ftNO  function  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

OATF  EOF  MINO  MOO  RECOVR 

remark  shift  time 

PART  OF  PROGRAM 

EOJ  - ABNORMAL  TERMINATION  ROUTINE 

PRT  - PRINT  REMARKS  ANO  OESCRIPTION  SECTIONS 

others 

EQU60  - COMPARE  2 ARRAYS 

GETLFNS  - SET  ACTUAL  LOCAL  FILE  NAMES 

REOUCF  - ADJUST  CORE  UP  ANO  DOWN  AS  REQUIRED 

UNLOAD  - RETURN, ZZDOC. 

VFILL  - FILL  ARRAY  WITH  WORD 

ZPFUNC  - ATTACH, ZZDOC, MAGrAPEOOCUMENTATlON,IO=CXXX. 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

A UTHOR 

DAVID  V SOMMER  - OTNSRDC  CODE  1692.2 

DATE  written:  10Z06/76 

DATE(S)  REVISED 

LOCATION  OF  decks 
SOURCE 

UPDATE  LIBRARY!  UT I L I T Y PL , 1 0= CS Y S 

OBJECT 

EDITLIB  USER  LIBRARY!  UTILITY 


PROGRAM  'UNOOCIT* 


PURPOSE 

REHOVE  THE  PAGING  WHICH  HAS  A30EO  TO  A OOCUMENT  BY  PROGRAM 
'OOCIT* 

FUNCTIONAL  CATEGORYI  Q6 

LANGUAGEI  fortran  IV  EXTENOEO 

REMARKS 

NONE 

EXECUTION 

FROM  BATCH 

NOT  DESIGNED  FOR  BATCH  USE 

FROM  TTY 

CONNECT, OUTPUT 
ATTACH, UTILITY. 

LIBRARY, UTILITY. 

PROGDOC,MVLia,CXXX,PROG,OLO. 

(GET  EXISTING  OOCUMENT  'PROG*  FROM  OOCUMENT  FILE 
HAVING  PFN=MYLIBOOCUMENTATION,  IO=CXXX,  AND  PUT  INTO 
FILE  »OLO*.) 

UNDOCIT,OLO,OL01. 

(REMOVE  OLD  PAGING) 

EDITOR 

EDIT, OLOl , SAVE 

(MAKE  CHANGES  DESIREO,  INCLUDING  RESTRUCTURING  OF 
PAGES.  INDICATE  START  OF  EACH  PAGE  BY  PUTTING  A 
•1»  IN  COLUMN  1 OF  EACH  LINE  WHICH  IS  TO  BE  THE  FIRST 
LINE  OF  A PAGE.) 

SAVE,NEWOOC,NOSEQ 

LINEP,NEWOOC. 

(WILL  COUNT  PAGES  AND  NUMBER  OF  LINES  PER  PAGE.  IF 
ANY  PAGE  HAS  MORE  THAN  59  LINES,  GO  BACK  AND 
RESTRUCTURE.) 

BYE 

OOCIT, NEWOOC, FILE. 

(PUT  PAGING  BACK  ON) 

BEGIN,OOCREPL,,MYLIB,CXXX,PROG, ,FILE,AC,PH1,PW2. 

(REPLACE  DOCUMENT  'PROG*  ON  FILE  HAVING 
PFN=MYLIB00CUMENTATI0N,  I0=CXXX.  supply  AC,  PHI, 

PW2,  IF  REQUIRED.) 

EXECUTE  CARO  PARAMETERS 

UNOOCIT,INFILE,OUTFILE,OUTPUT. 
infile  - INPUT  OOCUMENT 
OUTFILE  - OUTPUT  OOCUMENT 

OUTPUT  - LISTABLE  OUTPUT  (FTN  ERROR  MESSAGES) 

DEFAULT  EXECUTE  CAPO 

UNOOCrT,TAPEl,r APE2,0UTPUT. 

FL  NEEDED  TO  LOAD!  310003 
FL  NEEDED  TO  RUN  t 230008 

(PROGRAM  ADJUSTS  CORF  AS  REQUIRED) 


10/28/76 
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UNOOCIT 


I OF  2 


10/2^/76 


INPUT/OUTPUT  UNITS 
UNIT  * LFN 


USE 


OUTPUT  LISTA0LE  OUTPUT 

(FTN  ERRO^  MESSAGES) 
TAPEl  INPUT  OOCJMENT 

TAPE2  OUTPUT  OOSUMENT 


METHOD 

THE  DOCUMENT  IS  READ  ONE  PAGE  AT  A TIME.  IF  THE  LAST  LINE 
HAS  •/*  IN  COLUMNS  U AND  7,  IT  IS  REMOVED,  AS  ARE  ANY  LINES 
IMMEDIATELY  PRECEDING  IT  WHICH  CONTAIN  A *0*  IN  COLUMN  1 
AND  3LANKS  IN  THE  REST  OF  THE  LINE. 

A COUNT  OF  THE  RECORDS  IN  AND  OUT  IS  PUT  INTO  THE  OAYFILE. 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 

AND  CLOSEM  FILESQ  GET  IFETCH 

MOVLEV  OPENM  »UT  REMARK 

PART  OF  PROGRAM 


UNDO 
OTHERS 
EQU6  0 
GETLFNS 
LASTC 
REDUCE 
REQUEST 


REMOVE  BOTTOM  OF  PAGE  AND  OUTPUT  THE  PAGE 

COMPARE  TWO  ARRAYS 
GET  ACTUAL  LOCAL  FILE  NAMES 
FIND  LAST  NON-BLANK  IN  ARRAY 
GET  MORE  CORE  AS  REQUIRED 
REQUEST,! APE2, *PF. 


ARITHMETIC  STATEMENT  FUNCTIONS 

FAST  L-FORMAT  DECODE  (LEFT-ADJ,  ZERO-FILLED) 
LllFMT  L12FMT  L71FMT 


AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1892.2 
DATE  WRITTENt  10/20/78 


DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIFIRARYI  UTI L I TYPL  , 1 0 = CS  YS 
OBJECT 

EDITLIB  user  LIBRARYt  UTILITY 
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r 


m 


P90GRAM  •WHeTLI9» 

PURPOSE 

LIST  LIBRARIES  SPECIFIEO  ON  LAST  LIBRARY  CARO 


FUNCTIONAL  CATEGORY! 


QQ 


REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 

DATE  TIME 


AND 

OTHERS 

RCPA 


- READ  CONTROL  POINT  AREA 


ARITHMETIC  STATEMENT  FUNCTIONS 

RIFMT  - FAST  R-FCR«AT  DECODE  (RIGHT-AOJ»  ZERO-FILLED) 

LANGUAGEI  FORTRAN  IV 


OUTPUT  UNIT 

OUTPUT 


LISTABLE  OUTPUT 


.USE. 


EXECUTION 

FROM  BATCH 

OF  LIMITED  USE  IN  BATCH 
BEGIN,UTILITY,,WHATLIB. 

FROM  TTY 

CONNECT, OUTPUT 

BEGIN, util I TY,,WHATLIB. 

EXFCUTE  CARO  PARAMETERS 
WHATLIB, OUTPUT, 

OUTPUT  - LISTABLE  OUTPUT 

OFFAULT  FXECUTE  CARO 
WHATLIB, OUTPUT. 

FL  NEEDED  TO  LOACt  23000B 
FL  NEEDED  TO  RUN  I 130006 

AUTHOR 

DAVID  V SOMMER  - DTNSROC  CODE  1992.2 


DATE  WRITTENI  1BT5 
DATF(S)  REVISED 


LOCATION  OF  DECKS 
SOURCE 

UPOATF  LIBRARY!  UT I L I T YPl , I 0 = CS YS 

OBJECT 

EOITLIB  USER  LIBRARY!  UTILITY 


08/22/77 
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WHATLIB  - 1 
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.J 


P'^OGRAM  •MHICHMF* 


PURPOSE 

TELL  TEL 

FUNCTIONAL 


ETYPE  USER  WHICH  MAINFRAHE  HE  IS  USING 
CATEGORY!  qo 


LANGUAGE!  COG  6000  CP  COMPASS 

REMARKS 

NONE 

EXECUTION 

FROM  BATCH 

ATTACH, UTILITY. 

LqSET,LIB=UTILITY.  OR  LIBRARY, UTILITY. 

whichmf. 


FROM  TTY 

BEGIN, UTILITY,, whichmf. 

EXECUTE  CARO  PARAMETERS 
WHICHMF. 

default  execute  CARO 
WHICHMF. 

FL  NEEDED  TO  LOAD!  IIOOOB 
FL  NFEOFO  TO  RUN  1 300B 

OUTPUT  UNITS 

LEN  USE 


OAYFILE  MAINFRAME  MESSAGE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
NONE 
OTHERS 

MACHINE  - GET  BATCH  USER  DAYFILE  HEADING 

AUTHOR 

DAVID  V SOMMER  - OTNSROC  CODE  1892.2 
DATE  WRITTEN!  04X18/T5 
DATE(S)  REVISED 

0«/2ii/T7  - CHANGE  NAME  FPOM  WHICHCP  TO  WHICHMF 
ADD  MFA/MFB/MFC  TO  MESSAGE 

LOCATION  OF  DECKS 
SOURCE 

U(»0ATE  LIBRARY!  UTILITYPL , 1 0 = CS YS 

OBJECT 

EOITLI3  USER  LIBRARY!  UTILITY 


Qn/?i*/77 
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WHICHMF 


I OF  I 


PROGRAM  'HHICHOS* 


PURPOSE 

TELL  TELETYPE  USER  WHICH  OPERATING  SYSTEM  HE  IS  USING 


FUNCTIONAL  CATEGORY!  QO 

REMARKS 

NONE 


I 

I 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PAPT  OF  LANGUAGE 
NONE 
OTHERS 

MACHINE  - GET  BATCH  USER  OAYFILE  HEADING 
LANGUAGE!  COC  6000  COMPASS 
EXECUTION 

FROM  BATCH  AND  TTY 
ATTACH, UTILITY. 

LIBRARY, UTILITY. 

WHICHOS. 

DEFAULT  EXECUTE  CARO 
WHICHOS. 

FL  NEEDED  TO  LOAD!  20000B 
AUTHOR 

DAVID  V SOMMER  - NSRDC  CODE  1992.2 

DATE  WRITTEN!  04/1B/75 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

TA»E  LABELLED  CSYSUT ILITYPL ? P.F.  UTILITYPL,IO=CSYS 
OBJECT 

EDITLIB  USER  LIBRARY!  UTILITY 


i 

{ 


1 


9(i/Z2/77 
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WHICHOS 
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INITIAL  DISTRIBUTION 


Copies : 

12  Director 

Defense  Documentation  Center  (TIMA) 
Cameron  Station 
Alexandria,  Virginia  22314 


CENTER  DISTRIBUTION 


Copies : 


1 

1800 

Gleissner  G H 

1 

1802.2 

Frenkiel  F N 

1 

1802.4 

Theilheimer  F 

1 

1804 

Avrunin  L 

1 

1805 

Cuthill  E H 

1 

1809.3 

Harris  D 

1 

1820 

Camara  W 

1 

1840 

Lugt  H J 

1 

1850 

Corin  T 

1 

1860 

Sulit  R A 

1 

1890 

Gray  G R 

1 

189.1 

Taylor  N M 

1 

1891 

Cooper  A E 

150 

1892.1 

Strickland  J D 

20 

1892.2 

Sommer  D V 

1 

1892.3 

Minor  L R 

1 

1894 

Seals  W 

1 

1896 

Blackburn  P 

1 

5220 

Library 

DTNSRDC  ISSUES  THREE  TYPES  OF  REPORTS 

1.  DTIMSROC  REPORTS,  A FORMAL  SERIES,  CONTAIN  INFORMATION  OF  PERMANENT  TECH- 
NICAL VALUE.  THEY  CARRY  A CONSECUTIVE  NUMERICAL  IDENTIFICATION  REGARDLESS  OF 
THEIR  CLASSIFICATION  OR  THE  ORIGINATING  DEPARTMENT. 

2.  DEPARTMENTAL  REPORTS,  A SEMIFORMAL  SERIES,  CONTAIN  INFORMATION  OF  A PRELIM 
INARY,  TEMPORARY,  OR  PROPRIETARY  NATURE  OR  OF  LIMITED  INTEREST  OR  SIGNIFICANCE. 
THEY  CARRY  A DEPARTMENTAL  ALPHANUMERICAL  IDENTIFICATION. 

3.  TECHNICAL  MEMORANDA,  AN  INFORMAL  SERIES,  CONTAIN  TECHNICAL  DOCUMENTATION 
OF  LIMITED  USE  AND  INTEREST.  THEY  ARE  PRIMARILY  WORKING  PAPERS  INTENDED  FOR  IN 
TERNAL  USE.  THEY  CARRY  AN  IDENTIFYING  NUMBER  WHICH  INDICATES  THEIR  TYPE  AND  THE 
NUMERICAL  CODE  OF  THE  ORIGINATING  DEPARTMENT.  ANY  DISTRIBUTION  OUTSIDE  DTNSRDC 
MUST  BE  APPROVED  BY  THE  HEAD  OF  THE  ORIGINATING  DEPARTMENT  ON  A CASE  BY  CASE 
BASIS. 


